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Preface 


Before using this manual, you should be familiar 
with the information in the IBM 5110 BASIC 
Introduction, SA21-9306, such as: 

• Entering data from the keyboard 

• The arithmetic operators 

• How to enter a program 

• Using data files 

• Using arrays 

This manual gives you conceptual information 
about using the 5110 with the BASIC language 
and is intended to be used with the IBM 5110 
BASIC Reference Manual. The topics covered 
in this manual include: 

• Computer concepts for data processing 

• An approach to breaking your application into 
small parts to make programming easier 

• Changing the sequence of execution within your 
BASIC program 

• Formatting the data on the display screen 

• Entering uppercase and lowercase characters 

• Using a procedure file to replace keyboard input 

• Sounding the audible alarm 


Since this manual is not intended to give you a 
complete description of the syntax and rules 
required for each BASIC command and statement, 
you must use the IBM 5110 BASIC Reference 
Manual for this description. 

This manual does not need to be read chapter by 
chapter. Instead, you can read the appropriate 
chapters as required. For example, you might read 
Chapter 3, Changing the Sequence of Execution In 
Your BASIC Program, when you need information 
on program loops. 


Prerequisite Publication 

IBM 5110 BASIC Introduction, SA21-9306 


Related Publications 

IBM 5110 BASIC Reference Manual, SA21-9308 

IBM 5110 BASIC Reference Handbook, GX21-9309 

IBM 5110 Customer Support Functions Reference 
Manual, SA21-9311 


• Using tape and diskette storage 

• Formatting printed reports 


• Additional tips and techniques 
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Chapter 1. 5110 Data Processing Concepts 


INTRODUCTION 

What can you expect a computer to do with information? How do you 
get information into a computer? How does a computer know what to 
do with your information? What final results can you expect? 

Today the computer is doing many jobs, from accounting to predicting 
election results to guiding spaceships. It is often looked upon as some 
kind of magical machine, but the computer performs no magic. 
Everything a computer does is dependent on the people who use it 
and the instructions they supply. For every job you want a computer 
to do, you must give a step-by-step procedure (a program) for it to 
follow. This procedure is then stored inside the computer. The 
information you want is processed according to the stored 
instructions. 

A computer can do a wide variety of operations. It can retrieve, 
almost instantly, any item of information stored in it. It can compare 
any two items of information and do any arithmetic operations you 
want-add, subtract, multiply, or divide. It can be instructed to do any 
combination of these things in any sequence you want them done. 

The computer works methodically, doing one thing at a time. When it 
finishes one step, it goes on to the next, then the next, and the next, 
according to instructions. But it performs these steps at an almost 
unbelievable speed until it comes up with the answer you want. 

The work performed by a computer is called data processing. Data 
processing means that information is handled according to a set of 
rules. Whether you process information by hand or use a computer, 
the requirements of a job remain about the same. You must have 
input, which is the data you want to do something with; you must 
process the data, which is the act of doing something with data 
according to instructions; and you must have output, which is the 
result of your processing. 
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To help you understand the 5110 and data processing, let's first look 
at how an employee might process information for the job of billing. 
Assume for this job that the employee works with the following data: 

• Customer orders 

• Price catalogs 

• Customer records 

• Accounts receivable records 

• Inventory files 
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The employee receives a copy of the customer order after the order is 
shipped. He uses this document to prepare the invoice that he sends 
to the customer. To prepare the invoice, the employee: 

1. Looks up, in a price catalog, the price of each item in the order 

2. Multiplies the price of each item by the quantity shipped 

3. Adds the total price of each item to get the total amount of the 
invoice 

4. Checks the customer records to see if any special discounts 
apply, and adjusts the invoice accordingly 

5. Types the invoice 

6. Adjusts the accounts receivable records to show what the 
customer owes 

7. Updates the inventory files to show the reduced stock 

For each invoice he prepares, the employee follows the same 
procedure. In computer terms, the procedure is his program for doing 
the job. The customer order is his input ; the calculating and file 
updating he does is processing: and the results of processing-the 
invoice and the updated records-are his output. 

As shown in Figure 1, computer data processing can speed up a billing 
operation and reduce costly errors. Data (customer order information) 
can be entered at high speed via the keyboard; many records can be 
quickly referenced and updated in a magnetic storage medium (tape or 
diskette); the processing unit can store and carry out instructions (a 
program) and perform needed calculations; and a printer can print the 
invoice. 



Figure 1. Computer Data Processing 
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The 5110 Model 1 Computing System (Figure 2) contains the following 
elements, which are components of the data processing system: 

• Input Elements-keyboard, tape, diskette 

• Output Elements-tape, diskette, printer, display screen 

• Processing Elements-main storage, tape, diskette, programs 



Figure 2. 5110 Model 1 Computing System Data Processing Elements 


The keyboard is the device the operator uses to key (enter) data into 
the processing unit. 

The tape and diskette are used either as input or output devices. Input 
data or programs can be entered into the system using the tape or 
diskette. Output data can be stored on the tape or diskette for use in 
other programs. 

The printer records on paper (prints) the data sent to it by the 
processing unit. This printed material is sometimes referred to as the 
hard copy output. 

The display screen displays output data sent to it by the processing 
unit. The system uses the display screen to communicate with the 
operator by displaying information keyed on the keyboard so that the 
operator can verify the information before it enters the system. The 
system also displays messages that identify keying errors and provide 
operator guidance or specific processing information as required. 
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The processing unit is made up of the main storage, tape or diskette, 
and programs. The tape or diskette is used to store files of 
information and programs that are used by the system. Main storage 
is the part of the processing unit that holds a program so that the 
system can execute the steps in the program. Data is moved from 
tape or diskette into main storage for use by the program being 
executed. 


ADVANTAGES OF COMPUTER DATA PROCESSING 

If data processing is always a matter of input, processing, and output, 
how is computer data processing different from manual or mechanical 
data processing? Computers process large volumes of data faster, 
more accurately, in less space, and with greater versatility. 

• Speed. Because computers process data electronically, they 
operate at remarkable speeds that save a tremendous amount of 
time. 

• Accuracy. A computer does exactly what it is told to do and only 
what it is told to do. Because of this constant dependence on 
instructions, a computer follows program after program, second 
after second and hour after hour, with unvarying accuracy. 

Computers also reduce transcription errors by dramatically reducing 
the need for manual transcription. Once you record data on a tape 
or diskette that data may never have to be written by hand 
again-you can update as many different customer records, complete 
as many different kinds of forms, and create as many different 
reports from that data as you have application programs that use 
the data. By referring to the display screen while first recording the 
data, you can insure that the data is keyed correctly. Programs that 
use the data can perform control total checks and balances to 
continually validate the accuracy of the data. 
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• Data Compression. Computers miniaturize data. Suppose a business 
enters its accounts receivable transactions in a machine-posted 
register like the one shown below. 


ACCOUNTS RECEIVABLE TRANSACTION REGISTER 

07/11/-- PAGE 001 



OUST 

CUSTOMER 

JOURNAL 

INVOICE 

CASH 

INVOICE 

JOURNAL 

DATE 

NO 

NAME 

NO 

NO 

AMOUNT 

AMOUNT 

AMOUNT 

07/11/- 

759820 

SOUND OF THE SEVENTIE 


063420 

k 

$ 46.23 


07/11/— 

633870 

0LDE VILLAGE SHOPPE 


063421 


89.70 


07/11/— 

642990 

PARAGON TV SALES 


063422 

* 

20.30 


07/11/- 

122620 

CANNIZ0NI STUDIOS 


063423 


129.76 


07/11/- 

682030 

RAYMONDS RAPID REPAIR 



$ 63.80 



07/11/- 

742950 

SARATOGA VARIETY 



29.72 



07/11/- 

014280 

BAKER BRADLEY & CO. 



43.50 



07/11/- 

872060 

UNIVERSITY ELECTRIC 



97.75 



07/11/- 

883290 

VILLAGE MUSIC & TV 

07-036 




$18.2 3CR 

07/11/- 

006280 

ALLST0NS 

07-037 




10.70CR 



TOTALS 



$234.77* 

$285.99* 

$28.93CR’ 


The preceding example shows 10 sample entries, or records. 
Several thousand such transaction records can be stored by the 
system on one diskette. That is, the system enables you to store 
large volumes of business information in an economical and 
manageable form that can be processed by a machine. 

• Versatility. The number of different tasks a computer can do is 
limited only by the number of different programs run on it. The 
computer can do much more than just add, subtract, multiply, and 
divide. The 5110 can, for example, prepare invoices, keep accounts 
receivable up to date, print weekly paychecks, and analyze data for 
thorough cost and sales analysis. 

Speed, accuracy, data compression, and versatility combine to reduce 
data processing errors and increase productivity. But a less obvious 
advantage of computers has a more fundamental effect. 





DATE 

07/11/- 

07/11/-- 

07/11/- 

07/11/- 

07/11/- 

07/11/- 

07/11/- 

07/11/- 

07/11/- 

07/11/- 


ACCOUNTS RECEIVABLE TRANSACTION REGISTER 
07/11/- 


PAGE 001 


CUST 

CUSTOMER 

JOURNAL 

‘INVOICE 

CASH 

INVOICE 

NO 

NAME 

NO 

NO 

AMOUNT 

AMOUNT 

759820 

SOUND OF THE SEVENTIE 


063420 


$ 46.23 

633870 

OLDE VILLAGE SHOPPE 


063421 


89.70 

642990 

PARAGON TV SALES 


063422 


20.30 

122620 

CANNIZONI STUDIOS 


063423 


129.76 

682030 

RAYMONDS RAPID REPAIR 



$ 63.80 


742950 

SARATOGA VARIETY 



29.72 


014280 

BAKER BRADLEY & CO. 



43.50 


872060 

UNIVERSITY ELECTRIC 



97.75 


883290 

VILLAGE MUSIC & TV 

07-036 




006280 

ALLSTONS 

07-037 





TOTALS 



$234.77* 

$285.99' 



Accts Receivable 
Transaction 
Register 07/11 /-- 


O 

0 
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Computers impose discipline. As explained, a computer is helpless 
without programs-it cannot think for itself. Neither can a computer 
guess whether its programs really reflect the problems at hand-you 
must see that they do. In other words, you must carefully analyze the 
data processing requirements of your organization in order to take full 
advantage of a computer. For instance, with the data processing 
capabilities provided by a 5110, what additional cost analysis, 
inventory control, and auditing procedures would you like to implement 
in your organization? 

The responsibility for analyzing an organization's data processing 
requirements falls, of course, to management. But the discipline 
imposed by a computer extends throughout the data processing 
activities of the organization. Once you've designed or selected 
computer programs that reflect management directives, you've 
established management control that is automatically practiced each 
time those programs are used. 




Chapter 2. Elements of a BASIC Program 


Before reading this chapter, you should be familiar with the 
information in the 5110 BASIC Introduction, such as: 

• Entering data from the keyboard 

• The arithmetic operators 

• Numeric and character variables 

• The arithmetic operator hierarchy 

• Entering a BASIC program 

• The BASIC language statements REM, INPUT, GOTO, STOP, 

LET, IF, FOR, NEXT, READ, DATA, RESTORE, PRINT, OPEN, CLOSE, 
RESET, PUT, GET, and DIM 

• The system command used to store and retrieve programs on a 
tape or diskette 

In this chapter, the following topics are discussed: 

• Defining a program 

• Analyzing an application (problem) so that BASIC programs can be 
used to process information 

• The most commonly used BASIC statements 


DEFINING A PROGRAM 

A program is a procedure or set of instructions you establish for doing 
a job. These instructions are necessary because a computer cannot 
think for itself. When defining a program for the 5110, you can use a 
programming language called BASIC. BASIC is a simple-to-use 
programming language with which you describe how you want the 
5110 to do the job. 


The next section presents an approach to analyzing an application so 
you can use a BASIC program to help process information. This 
approach helps you divide an application into manageable parts. This 
way you can apply BASIC statements to process the information. 
Dividing an application into manageable parts promotes thoroughness 
and allows the application to be solved (programmed) faster. 
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PROCESSING INFORMATION 


Every problem consists of three parts: 

• The input data required to generate the final result 

• The process (BASIC statements) required to generate the final 
results 

• The output, which is the final result 

Each part might consist of one statement or several statements. In the 
following sections, each part is discussed in more detail. Also, an 
example for finding the compound interest is used to illustrate each 
part. 


Output 

Because the output is the primary reason for a program to exist, 
considering the output provides the best place to start solving a 
problem. To do this, consider these questions: 

1. What results are required? 

2. How should the results be formatted? 

3. Who uses the results? For example, should the results be 
displayed or printed, or should the results be stored in the main 
storage, on tape, or on diskette for later use? 

Now, for the compound interest example, assume the answers to 
these questions are: 

1. The amount of interest earned 

2. The message THE INTEREST EARNED IS: followed by the 
calculated interest earned 

3. Finance officers need the displayed results to evaluate different 
plans 

Once you have answered these questions, you know the purpose of a 
program. 



Input 

After the output, you should consider what input data is required to 
generate the output. To do this, consider such questions as: 

1. What input is required? 

2. Where does the input come from? 

3. How is the input provided? 

For the compound interest example, the answers to these questions 
are: 


1. The interest rate, number of years, and principal 

2. From finance officers who need to know the amount of interest 
earned for different plans 

3. Through the 5110 keyboard 

In our example, most of the input data will come from the keyboard; 
however, other ways also exist. For example, some data might be 
permanent and be included within the program (for example, headings 
and labels). There might also be data that is usually constant but, for 
certain applications, must be changed. This data might be coded in 
the program as variables that can be modified. And, of course, data 
might also be from tape or diskette. 

The following list summarizes the input and output considerations so 
far: 



Input 

Output 

Device 

Keyboard 

Display 

Data 

Interest rate 
Number of years 
Principal 

THE INTEREST EARNED IS 
The calculated interest earned 
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Process 


Once the input and output are well defined, all of the characteristics 
work together to make the process part the most straightforward. 

For our compound interest example, the process part consists of: 

1. Defining the algorithm used to calculate the compound interest 

2. Using the input to generate the results 

The formula used in this example for the compound interest is: 


COMPOUND INTEREST = PRINCIPAL f 1 +_Rate\Years 

V 100 / 

The BASIC statements that use the input to generate the results might 
be as follows: 


A 

B 

C 



:!. 0 (5 


R is the interest rate 
Y is the time in years 
P is the principal 
C is the compound interest 


PUTTING IT ALL TOGETHER 


Now that you have considered the three parts of information 
processing, it is time to write your program. For the compound 
interest example, your program might look like this: 


0 01 0 P RIN T * E N "f E E T H E IN T E E E S T , P EIN C 1 P A L , 
0 020 INPUT E,P , Y 
0030 A=l+E/100 
0 04 0 B :: "AfY 
0 050 C=P-x-B 

0 0 6 0 P EIN T ' T H E IN T E E E S T E A R N E D IS ! ' 

0070 PEINT C-P 


AND YEAES' 


So far, you have taken a simple application and designed a program to 
solve it. If the application is larger or more complex, a more detailed 
structure is required. This more detailed structure involves expanding 
each of the three parts (input, process, and output) into additional 
levels of input, process, and output. 
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ADDITIONAL LEVELS OF INPUT, PROCESS, AND OUTPUT 


For complex or large applications, you might want to break the INPUT, 
PROCESS, and OUTPUT down into additional levels of input, process, 
and output. 



First Level 


Additional Levels 


This allows you to break each first-level INPUT, PROCESS, and 
OUTPUT part into manageable parts. Let's continue with the 
compound interest problem and expand the first-level INPUT portion 
into additional levels of input, process, and output. That is, the INPUT 
portion is going to be treated as a separate problem in itself. 

First, consider the output of the INPUT portion. Here the output is 
actually the input for the first-level PROCESS portion. In this case, 
assume that the output must be an interest rate not greater than 18%, 
a number of years not greater than 40, and a principal not greater than 
500,000.00. 

Next, consider the input for the INPUT portion. The input is the same 
as before (the interest rate, number of years, and principal for which 
the interest earned must be calculated). However, in this case, the 
finance officers might be unfamiliar with the program; therefore, there 
should be prompting messages telling them what to enter. 
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Finally, consider the process for the INPUT portion. In this case, the 
processing consists of error checking and validation of all the input 
data, because you want to make sure that the interest rate is not 
greater than 18%, the number of years is not greater than 40, and the 
principal is not greater than 500,000.00. 


Now, taking these considerations into account, the BASIC statements 
for the first-level input portion might be: 


0 0 1 0 

PRINT 'ENTER THE 

INTEREST RATE 

, YEARS 

AND PRINCIPAL 

0 020 

INPUT I,Y,P 




0 030 

IF I<18 GOTO 60 




OOM-O 

PRINT ‘THE INTER!; 

1ST RATE IS GR 

EATER THAN 18 PERCENT 

0 050 

GOTO 10 




0 060 

IF Y<M-0 GOTO 90 




0 070 

PRINT 'THE NUMBEi 

R OF YEARS IS 

GREATER 

THAN MO' 

0 080 

GOTO 10 




0 09 0 

IF P<500000 GOTO 

12 0 



01 0 0 

PRINT 'THE PRINC! 

I PAL IS CREATE 

R THAN ! 

300,000.00' 

0 110 

GOTO 10 




0120 

<:• 





For complex or large applications, you could also break down the 
first-level PROCESS and OUTPUT portions; however we are not going 
to do that for this example. 

As you break an application down into manageable parts, you might 
want to have a separate program for each part. For example: 


0 0 05 USE I,Y , P 

001.0 PRINT ‘ENTER THE INTEREST RATE, YEARS, AND PRINCIPAL' — 
0020 INPUT I,Y,P 
0030 IF I<18 GOTO 60 

0 04-0 PRINT 'THE INTEREST RATE IS GREATER THAN 10 PERCENT' 
0050 GOTO 10 
0 060 IF Y<i-l-0 GOTO 90 

0070 PRINT 'THE NUMBER OF YEARS IS GREATER THAN MO' 

0080 GOTO 10 

0 090 IF P<50 0 0 0 0 GOTO 120 

0100 PRINT 'THE PRINCIPAL IS GREATER THAN 500000.00' 

0110 GOTO 10 

0120 CHAIN ' E80 ' , The input program is loaded from file 1 anc 

executed. 

The CHAIN statement automatically loads 
the program from file 2 on device E80. 

0010 USE I,Y,P,C 

0 020 A«l + I/100-* -The process program is loaded from 

0 030 B : ~AtY file 2 and executed. 

OO'+O C=P*B 

0050 CHAIN 'E80',3 



0005 USE I,Y,P,C-- 

0010 PRINT 'THE INTEREST EARNED IS: 
0 020 PRINT OP 
0030 STOP 


-The output program 
is loaded from 
file 3 and executed. 


CONCLUSION 

When solving a problem using the 5110, break the problem down into 
manageable parts. To do this, first focus on the program output; this 
is the primary interface to the user. The output also defines what the 
real purpose of the program is. Next, consider all the input data that is 
required to generate the output. Finally (and only then), plan the 
actual processing. 

Thinking in this way should help you make the transition from knowing 
the BASIC language to being able to use the BASIC language and then 
to generating programs that solve real problems. 
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BASIC STATEMENTS MOST COMMONLY USED FOR INFORMATION 
PROCESSING 

Following is a description of some BASIC statements that you will use 

for the input process, and output portions of a BASIC program. 

Input Statements 

Statement Description 

INPUT Requests that you enter data 

from the keyboard during the 
execution of the program. The 
data entered from the keyboard 
is assigned to a corresponding 
name (variable) specified by 
the statement. 

DATA Creates a string of numeric and/or 

character values that can be used 
by the program. The values are 
assigned to a corresponding name 
specified by a READ statement. 

READ Assigns values to variables and 

arrays from the values created by 
a DATA statement. 

OPEN Causes specified input and/or 

output files to be activated. 

The files can then be used 
for the input and/or output 
operations. 

CLOSE Causes the specific input and/or 

output file to be deactivated. 

Then the files cannot be used 
for input and/or output 
operations until they are 
opened again. 

READ FILE Reads records from a specified 

record I/O data file (see 
Chapters 7 through 10) and assigns 
the data to specified variables. 

DIM Specifies the size of arrays 

and character variables used 
by the program. 
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GET 


Reads data from a specified stream 
I/O data file and assigns the data 
to specified variables. 



Process Statements 


Statement 

LET 

FOR 


NEXT 

GOSUB 


RETURN 

GOTO 

IF 


Description 

Assigns the value of an expression 
to a variable. 

Marks the beginning of a loop and 
specifies the condition of its 
execution and termination. The 
NEXT statement is used to mark the 
end of the loop: 

0:1.0 0 FOR J< = 1 TO 10 


0.130 NEXT l< 


See the FOR statement. 


Transfers control to the first 
statement of a subroutine. Then 
when a RETURN statement is executed, 
control returns to the next 
statement following the GOSUB 
statement: 


0 1 0 0 
0 12 0 

<;♦ 

<:• 

0 25 0 


0 29 0 



A subroutine is useful when the 
same statements must be executed 
several times in the program. 

See the GOSUB statement. 

Transfers control to a specified 
statement. 


Causes the program action to be 
determined as the result of the 
evaluation of a condition. 
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Output Statements 


Statement 

PRINT 

PRINT FLP 


WRITE FILE 

REWRITE FILE 

PUT 


Description 

Causes data to be displayed on 
the display screen. 

Causes data to be printed on the 
5103 Printer. Data can be formatted 
as it is being printed if the 
PRINT FLP statement is used in 
conjunction with the IMAGE and 
FORM statements. 

Adds a new record at the end of 
a record I/O file. 

Updates (rewrites) a record that 
already exists in a record I/O file. 

Writes data from specified variables 
to a stream I/O file. 



Chapter 3. Changing the Sequence of Execution in Your BASIC Program 


In this chapter, the following topics are discussed: 

• Using loops to do the same calculations repeatedly 

• Using functions or subroutines to do the same operation several 
times 

• Chaining to another BASIC program from a program currently being 
executed 


LOOPS 

Suppose you want to display credit amounts of $100 to $5000 in 
increments of $100, along with the monthly finance charge of 18% per 
year (.015 per month). You could do it simply enough by writing the 
following statements: 


0 ! 

'PINT 

:i. o o , 

1 0 0 •><•. 0 

0 1 

''PINT 

2 0 0 , 

2 0 0 * . 0 

0 ! 

>r:i:nt 

3 y u , 

3 0 0 •>>:•, 0 

0 1 

• RI NT 

>•!• 0 0 , 

M. 0 0 . 0 


0 >•!• 9 0 P R1N T *•!• 9 0 0 , 9 0 0 , 0 :i. 5 
0 5 0 0 P R I N T '5 0 0 0 , 5 0 0 0 •>«•. 0 15 

Although this technique works correctly, it is time consuming and 
tedious. In displaying an amount and its finance charge for all 
amounts from 100 to 5000, what we are really doing is performing the 
same operation repeatedly, but using different numbers each time. 
Calculations that are to be repeated can generally be done efficiently 
by a simple programming device known as a loop. 
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Here's a concise method of performing the same operations shown 
previously: 

0 0;!. 0 P~:l.00 

0 020 PRINT P , P, 0 I5 

0 03 0 P""P4-:i. 0 0 

00MO GOTO 20 

Here, we have created a loop in statements 20 through 40. When the 
program is run, the PRINT statement will be executed once each time 
the value of P increases by 100. The statement that makes the loop 
possible is the GOTO statement. It alters the normal sequence of 
execution by directing the computer to execute a different statement. 

It does this by referring to the number of that statement. The 
statement GOTO 20 directs the computer back to statement 20, which 
displays the value of P and its finance charge. Statement 30 then 
increases the value of P by 100, and statement 40 is executed again, 
branching the program back to statement 20. 

There is one problem with the loop we have shown here: there is no 
provision for ending the loop. Consequently, not only will we get 
results for values from 100 to 5000, but also for 5100, 5200, and so 
on, unless we take some action to stop execution. In this program, we 
want the loop to end after we reach the value 5000, or, put another 
way, we want the loop to continue as long as P is less than or equal 
to 5000. To provide this action, we should build into the loop a test 
from some condition, so that when the condition is met, the loop will 
end automatically. 


Using the IF Statement 

An IF statement says it quite concisely: 

0 0.1.0 IF P<30 0 0 GOTO 2 0 

This IF statement says that if P is less than (<) or equal to (=) the 
value 5000, the program is to branch to statement 20. Here we have 
incorporated the GOTO statements into the IF statement. Let's put this 
new statement into the program and see what happens: 


0 0 1 0 

1 0 0 


0 0 2 0 

PRINT P, !•'•>*•, 0 1.!: 

,1 

0 030 

P P -Kl. 0 0 


0 04 0 

IF PI500 0 GGT( 

} 2 0 
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As long as P satisfies the condition, P less than or equal to 5000, 
execution will loop back to the PRINT statement However, when P no 
longer satisfies the condition-when P is greater than 5000-the loop 
will end automatically and the execution will fall through the IF 
statement to the next statement, which in this case is an END 
statement signifying the end of the program. 

The IF statement has many applications, some of which can be quite 
sophisticated, depending on the condition tested in the statement For 
example, conditions such as the following can be tested: 

0160 IF A™0 GOTO 60 

0170 IF A :::: 0 THEN 60 
0180 IF B-X/Y<Zt2 GOTO 80 

The first example is quite simple: if the value of the variable A is 
equal to 0, branch to statement number 60. The second statement 
tests the same condition as the first statement, but substitutes the 
word THEN for GOTO. In the IF statement, THEN and GOTO have 
exactly the same meaning. The third statement makes a test between 
two sets of expressions. The first expression evaluates B-X/Y. The 
second expression evaluates ZT2. If the value of the first expression 
is less than (<) the value of the second expression, the program is to 
branch to statement 80. 


Relational Operators 

The IF statements illustrated in these examples used the symbols <, >, 
and =. These symbols are part of a set of operators called relational 
operators. Relational operators are used only in IF statements; they 
test the relationship between two expressions. It is important to note 
that relational operators do not perform any arithmetic operations. 
They simply test whether or not a condition is satisfied. For example, 
in statement 40, the equal sign does not mean that P is to be given 
the value 5000; it tests whether the value already assigned to P equals 
5000. If a condition is satisfied (if P does equal 5000 in this example), 
then the condition is considered true. If a condition is not satisfied (if 
P does not equal 5000), the condition is considered false. Thus, a 
relational operator says that if the condition being tested is true, the 
action specified is taken; otherwise, the action is not taken. Reviewing 
this concept using the example IF A = 0 GOTO 60, if the condition is 
true (A does equal 0), then the branch to statement number 60 is 
made; otherwise the branch is not made. Instead, the program 
continues with the next statement in sequence. 
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The relational operators and their definitions are: 


Operator 

Meaning 

= 

Equal to 

< > or * 

Not equal to 

> 

Greater than 

> = or > 

Greater than or equal to 

< = or < 

Less than or equal to 


Here are some examples: 

0 0 30 IF A""B GOTO 500 

0 1 ? 0 IF ' P RIN T • < 1 P RIZ E ‘ G 0 T 0 3 0 0 

0800 IF ATZDT GOTO 5190 

In the first example, a test i^ made between the values contained in 
the arithmetic variables A and B. The second example illustrates 
comparison of character data. For character data, a comparison is 
made according to the EBCDIC collating sequence of each character in 
corresponding positions in the constant. In other words, the first 
character of one constant is compared to the first character of the 
other constant, the second compared to the second of the other, and 
so on. In this example, the first three letters of the constants compare 
equal, but when the letter N is compared to Z, they compare unequal. 
The letter N, occurring before the letter Z in the alphabet, registers 
less than in the collating sequence. At this point, the condition tested 
would be met; that is, the character string PRINT is indeed less than 
PRIZE. 

In the third example, character variables are compared. Let's assume 
that the variable A$ contains the value ON and the variable D$ 
contains ONLY. The first 2 characters match, but when the letter L is 
compared to a blank, which is assumed for comparison purposes, they 
do not match. Thus, the result in this case would also be true, 
because the value of A$ is not equal to the value of D$. If, however, 
A$ and D$ do contain matching strings, say both contain the 
characters ONLY, then the test results would be false-A$ and D$ 
would be equal, thereby not satisfying the condition of the test 
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Logical Operators 


The example IF A = B tests the relationship between two expressions. 
Suppose, however, that you wish to take action if more than one 
relationship is true. For example, suppose that not only must A equal 
B but also X must equal Y. You could make these comparisons by 
using the logical AND operator, written as &: 

00MO IF A~B«X~Y GOTO 100 

Statement 40 says that if A equals B and X equals Y, then statement 
100 is executed. If only one comparison, or neither comparison, is 
true, program execution continues with statement 60. 

The IF statement can specify two logical operators: 

Operator Meaning 

& AND 

I OR 

The AND operator states that both conditions of a test must be true 
for the entire expression to be true; the OR operator states that either 
condition (or both) must be true for the expression to be true. 

If you want to branch to statement 100 if either A equals B or X 
equals Y, you could write this statement: 

0 050 IF A :::: B I X :::: Y GOTO 100 

Here are other examples of the AND and OR operators: 

0 0 7 0 IF C $ > D ;!> s J $=1< $ G 0 T 0 5 0 
0 0 8 0 IF A1 > :i - A 2 & J $ > * C A T ' G 0 T 0 3 0 0 

The first example tests an OR condition using character variables. It 
says that if the value in the variable C$ is greater than the value in D$ 
or if the values in J$ and K$ are equal, then a branch is made to 
statement 50. 

The second example tests an AND condition using mixed variables. It 
says that if the value in the arithmetic variable A1 is not equal to the 
value in A2 and the value in the character variable J$ is greater than 
the character string CAT, then the program is to branch to statement 
300; otherwise, program execution is to continue with the next 
sequential statement. 
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THE COMPUTED GOTO STATEMENT 

The computed GOTO statement is a version of the GOTO statement 
that gives you the ability to branch to different statements during 
various stages in a program. 

A computed GOTO could look like this: 

0 10 0 G 0 T 0 3 0 , '•!• 0,5 0 0 N J 

A branch is made to statement 30, to statement 40, or to statement 
50, based on the integer portion of the value contained in the variable 
J. The integer portion may contain a value of from 1 to 3. If the value 
is 1, a branch is made to the first statement shown in the list, 
statement number 30. If the value is 2, the branch is to be the second 
statement, number 40. If the value is 3, the branch is to the third 
statement, number 50. If the value is greater than or equal to (>) 4 or 
less than (<) 1, program execution falls through to the statement 
following the computed GOTO statement. 

The expression determining the branch to be made can be a simple 
variable, such as J above, or a more complicated expression, say (A + 
B) / 2. If such an expression were used, its computed value would 
determine the branch to be made. Consider this example: 

0 0 5 0 G 0 T 0 2 0 0,2 2 0 . 1 0 0,2 >•!• 0 0 N < A B ) / 2 

The expression (A + B) / 2 is evaluated, and a branch is made to 
statement number 200, 220, 100, or 240, depending on whether the 
value is 1, 2, 3, or 4, respectively. Note also that the statement 
numbers shown in the list do not have to be specified in sequential 
order; that is, statement number 100 can be the third number in the 
list even though it is a lower number than the others. 


MORE ABOUT LOOPS-USING FOR AND NEXT STATEMENT 

A still more concise method of specifying a loop is by using the FOR 
and NEXT statements. For example, our program for finding and 
displaying the finance charge for $100 to $5000 could be further 
simplified to look like this: 

0 010 for R GO TO 50 0 0 STEP 10 0 
0020 PRINT P,P#.015 
0030 NEXT P 
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The FOR statement identifies the beginning of the loop; the NEXT 
statement identifies the end of it. In between is the statement, or 
sequence of statements (we need only one for this example) that will 
be executed repeatedly until the specification in the FOR statement has 
been satisfied. 

In our example, the FOR statement specifies that the statement in the 
loop (the PRINT statement) will be executed repeatedly for successive 
values of P from 100 through 5000. (An increment of 100 is added to 
P for each execution of the NEXT statement.) When the value of P 
exceeds 5000, execution of the loop is ended, and control is passed to 
the next logically executable statement following the NEXT statement. 
In this case, the following statement is a STOP statement denoting the 
end of the program. However, other statements could precede it, or 
the NEXT could be the last statement prior to the STOP. 

The increment is always 1 unless it is explicitly stated to be otherwise; 
for example: 

0010 FOR P™100 TO 5000 STEP 200 

This FOR statement explicitly states an increment (or step) of 200. 
Thus, the statement(s) in the loop will be executed once for every odd 
multiple of P from 100 to 5000 (that is, the range is 100, 300, 

500,...4900). When the value of P exceeds 5000 (that is, when it 
reaches 5100), execution of the loop will end. The value of P will be 
set back to 4900 before the next logically executable statement is 
executed. 

If you want to execute the loop once for every even multiple of 100 to 
5000 (that is 200, 400, 600,...5000), you would say the following: 

0 010 FOR P™200 TO 5000 STEP 200 

Again, when the value of P exceeds 5000 (in this case, when it 
reaches 5200), execution of the loop will end. The value P will be set 
' back to 5000 when the next logically executable statement is executed. 

As with expressions appearing in assignment statements and in the 
body of PRINT statements, the specifications in FOR statements can 
be quite complicated. For example, the following FOR statements are 
permitted: 


n n 5 n 

FOR 

I! A 1 

0 B 




0 0 MO 

FOR 

..J :::: S i' 

1+Y TO At3 




0 050 

FOR 

<=SQ1 

TO 5 

50 

ST El 

> A 
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The first example states that the initial value of I is to be taken from 
the variable A and that the loop is to be executed repeatedly until the 
value exceeds the value of B. The second example states that the 
initial value of J is the value of the expression 8 * M + Y, and the loop 
is to be executed until this value exceeds the value of A ** 3. The 
third example states that the initial value of K is to be the square root 
of B minus C; the loop is to be executed until the value 550 is 
exceeded, and each time through the loop the value of K is to be 
increased by the value of the expression A / B + 2. 

You can also use more than one set of FOR/NEXT statements 
together in a program by nesting one loop. Let's look at a program 
that computes compound interest and uses nested FOR loops in the 
process. 

The mathematical formula to compute compound interest is: 

A = p/ 1 + -B_\ 1 

^ 100 J 

where A is the amount to be calculated, P is the principal, R is the rate 
of interest, and T is the time period. 

The program below shows how you can enter any amount as the 
principal (P), compute interest on it using interest rates from 1 % to 
20%, for each of 10 years, and display all the amounts-a total of 200 
values. 


0 0 9 0 
o :i. o o 

PRINT 

INPUT 

' Eh 
P 

HER PR INC 

01 0 5 

PRINT 

, .. f ;1 

ME’,‘RATE 

0 11 0 

FOR T 

~1 1 

0 10 

0:!. 2 0 

FOR R 

= 1 ') 

0 20 

0 13 0 

A-P*< 

1 + R/ 

' .1. 0 0 > f T 

01M- 0 

0 15 0 

0 1 6 0 

PRINT 

NEXT 

NEXT 

"f, 

R 

.... 

) 

, A 


Statement 130 duplicates, in BASIC terms, the compound interest 
formula. The FOR statement numbered 120 and the NEXT statement 
numbered 150 delimit one loop. The first time through the loop, the 
value of R, the rate variable, is set to 1. When NEXT R is reached, R 
is incremented by 1 and the statements are executed again with the 
new value of R. Each time through the loop the PRINT statement 
prints time, rate, and amount values. This process continues until R 
reaches 20 and the loop is ended. 
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However, this loop is enclosed, or nested, within the loop delimited by 
the FOR and NEXT statements numbered 110 and 160. This outer loop 
changes the value of T, the time variable, from 1 to 10. Each time the 
value of T changes, the inner loop cycles through 20 times changing 
the value of R. Since T changes value 10 times, the loop changing the 
value of R is executed 200 times. Each time, the PRINT statement 
prints new values. 

A nested loop is one that is enclosed by another loop. That is, the 
FOR/NEXT statements of one loop occur between the FOR/NEXT 
statements of another loop, as illustrated: 

- -0110 FDR P * * « 

- 0120 FOR R <> <» <> 

|-0130 FOR I * <> » 

<> 

Outer Nested Nested * 

Loop Loop 1 Loop 2 

O 

<> 

L- 0150 NEXT T <> o <> 

- 0160 NEXT R « <> <> 

- 0170 NEXT P * * <> 


FUNCTIONS AND SUBROUTINES 

As part of the BASIC language, you can define functions or write a 
program segment, called a subroutine, which you expect to use several 
times in your program. 


Functions 

User-written functions can be arithmetic or character. An arithmetic 
function is named by the letters FN followed by a single letter. A 
character function is named by the letters FN followed by a single 
letter and the currency symbol ($). 

The following can be names of arithmetic functions: 

FNA 

FNB 

FNR 

FN# 
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The following can be names of character functions: 

FNA$ 

FN#$ 

A user-written function is named and defined by the DEF statement. 
For example: 

0 0 1 0 D E F F N E < X ) = E X P < X f 2 ) 

defines the natural exponential of X squared, using the intrinsic 
function EXP. The arithmetic variable X, enclosed in parentheses after 
the function name FNE, is called a dummy variable. You can have 
more than one dummy variable, and the list of variables can contain 
both arithmetic and character dummy variables. (The expression value 
substituted for each dummy variable is called an argument.) After 
defining a function, the function name and its accompanying 
argument(s) can be used anywhere in your program. For example" 


0 0 

1.0 DE 

F FNE <X> = 

EXP <Xf 

0 0 ? 

50 Y 

= FNE (.5) 


0 0< 

0 Z 

:::: FNE (C+2) 


0 0" 

-’0 PR 

INT FNE <3,7! 

: .i) +Y/Z 


User defined functions can be defined in one statement or over a 
group of statements. A function defined in one statement, such as the 
function illustrated above, is called a single-line function. A function 
defined over many statements is called a multiline function. A 
multiline function begins with the word DEF, the function name, and 
any arguments, the same as single-line functions. However, the DEF 
statement does not contain the equal sign or an expression. Rather, 
the value of the function is developed by the statements following the 
DEF and is defined in a RETURN statement, which computes the value 
and returns the value to the program. The end of a multiline function 
is defined by the FNEND statement. Here is the way the statements in 
a multiline function must be sequenced: 

DEF function name [(variables, if any)] 


RETURN expression 


FNEND 







Here is an example of a multiline function: 


0030 DEF FNA <X,Y> 

0040 IF X>0 & y>:l. GOTO 60 
0050 GOTO 65 
0060 RETURN X+Y 
0065 RETURN X-Y 
0070 EMEND 


This function uses two dummy arithmetic variables (X and Y) as 
arguments. The function tests the values of both arguments. If X is 
greater than 0, and Y is greater than 1, the values are added and the 
sum is returned to the program. If the values do not satisfy the tested 
conditions, program control transfers to statement 65. If this function 
were used in the following program, C would have a value of 7 and D 
would have a value of -2. 


0030 DEF FNA (X,Y) 

0 040 IF X>0 & Y> . 1 . GOTO 6 0 
0050 GOTO 65 
0060 RETURN X+Y 
0065 RETURN X-Y 
0070 FNEND 


0:1.0 0 A-5 
0:1,20 B-2 

0:1.30 C-FNA < A , B ) 
0:1.4 0 D=FNA (0,2) 
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Subroutines 


Another way of writing a group of statements to be executed at 
different times in your program is to group them into a subroutine. 
Execution of a subroutine begins with the GOSUB statement, where 
the number specified in the statement specifies the number of the first 
statement in the subroutine. For example: 

100 GOSUB 200 


causes the computer to skip, or branch, to statement 200, the first 
statement in the subroutine. Program execution continues from that 
point. To cause the computer to branch back to statement 100 
(actually, to the next sequential statement following statement 100), 
the last statement of the subroutine must be a RETURN statement. 
This RETURN statement, unlike a RETURN used with a function, 
contains no expression. A program containing a subroutine could be 
sequenced like this: 


|—100 
—^110 
120 
130 
140 
150 
160 
170 
180 
190 
1—200 
210 
220 
230 
240 
250 
— 260 
270 


GOSUB 200 


STOP 


These are the statements that will 
be executed after the RETURN. 


First statement of the subroutine. 


Statements executed as part of the 
subroutine. 


RETURN 

END 


Statement 100 branches to statement 200. Statement 260 returns 
control to statement 110. Statement 190 tells the computer the end of 
the program has been reached. The STOP statement is similar to an 
END statement except that higher-numbered statements may follow it. 
Its use is to denote the end of program execution when the logical 
conclusion of the program occurs somewhere in the middle of the 
program, as shown here. The STOP statement here is equivalent to 
writing GOTO 270. 



A program illustrating the use of a subroutine is shown below. This 
program determines the greatest common divisor of three integers. 
The first two numbers are selected in program statements 30 and 40, 
and their greatest common divisor (CD) is determined in the 
subroutine, statements 200 through 310. The CD just found is 
assigned to X in statement 60. The third number read in from the 
INPUT statement is assigned to Y in statement 70. The subroutine is 
entered a second time from statement 80 to find the greatest common 
divisor (CD) of these two numbers. The result is, of course, the 
greatest common divisor of the three given numbers. It is displayed 
with them in statement 90. 

0 0 10 P R I! N T ‘ E N T E R T H R E E IN T E G E R S * 

0020 INPUT A,B,C 

0 030 X :::: A 

0040 Y™B 

0050 GOSUB 200 

0 060 XG 

0070 Y~C 

0080 GOSUB 200 

0 090 PRINT ’ A ‘ ‘ B ’ ' 0 ' , ' CD ' 

0095 PRINT A,B,C,G 

0.1.0 0 STOP 

020 0 Q" :: INT ( X/Y ) 

021 0 R X -• Q •>*> Y 

0 220 IF R“"0 GOTO 30 0 

0230 X=Y 

0 24 0 Y""R 

0250 GOTO 200 

0300 G™Y 

0310 RETURN 


Changing the Sequence of Execution in Your BASIC Program 


31 








Let's assume these numbers are entered when the INPUT statement is 
executed: 

ENTER THREE INTEGERS 
? 

60,90,120 

The output will be: 

1 19 37 55 (print positions) 

A B C CD 

60 90 120 30 

Another example of input and resulting output is: 

ENTER THREE INTEGERS 

v 

32,384-, 72 

A B C CD 

32 384- 72 8 

COMPUTED GOSUB STATEMENT 

The computed GOSUB statement is similar to the computed GOTO 
statement discussed in this chapter. They both cause a branch to one 
of a number of statements based on the computed value of an 
expression. The difference between the two statements is that the 
GOSUB branches to a subroutine; the RETURN statement in the 
subroutine returns program execution to the statement following the 
computed GOSUB statement. 

Consider this example: 

0 0 3 0 G 0 S U B 12 0 , 17 5,195 0N X - Y 

A branch is made to one of three subroutines, either the one 
beginning with statement 120, the one beginning with statement 175, 
or the one beginning with statement 195, depending on whether the 
integer portion of the value contained in the expression X - Y is 1, 2, 
or 3, respectively. If the expression X - Y results in a value other than 
1, 2, or 3, program execution continues with the statement following 
the GOSUB. 
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PROGRAM CHAINING 


With the program chaining technique, a BASIC program can be shared 
with other BASIC programs. For example, suppose that when writing 
a program you discover that an operation you want to perform is 
available as a separate program. It could be time saving to you to be 
able to use that program in conjunction with the one you are currently 
writing. The CHAIN and USE statements can help you access data and 
execute that program. 

The CHAIN statement is used in one BASIC program to tell the 
computer to stop executing the current program and start executing 
another BASIC program. To tell the computer which program to start 
executing, you name it in the CHAIN statement. Here's an example: 

0 5 0 0 0 H AIN * D 4 0 ‘ , ’ P R 0 G B ’ 

This statement instructs the computer to begin executing the program 
(in diskette drive 2) named PROGB. Note that when the CHAIN 
statement is executed, the current program (the program containing 
the CHAIN statement) is terminated. 

Variable values in the chaining program are passed to the chained 
program; that is, they become accessible for use in that program only 
if they were defined in a USE statement. 

In the program being chained, the USE statement specifies a list of 
variables that will receive the values passed from the CHAIN 
statement. For example, the value passed by J$ to PROGB can be 
received by PROGB in the statement: 

020 0 USE K$.1.8 

Note that the USE statement is written in both programs and the 
CHAIN statement is written in the chaining program (the program 
requesting execution of another program). The USE statement must 
be the first statement referencing a variable in each program. 

The CHAIN and USE statements derive their value in being able to 
help you string two or more programs together instead of having to 
code similar program sections for individual programs. Also, CHAIN 
and USE statements allow you to segment large programs. The 
following is an example of CHAIN and USE. 
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Chaining program 


0010 REM THIS IS PROGA 
0020 USE J$ 


0 3 0 0 C H A I N 1 D '•!• 0 ' .■ ‘ P R 0 G B ' 
0010 REM THIS IS PROGB 


0 050 USE !<$ 


Program being chained 


The CHAIN statement at 0300 of PROGA causes PROGB to be loaded 
into storage, then execution transfers to PROGB. The value in J$ of 
PROGA is passed to K$ as specified by the USE statements in both 
programs. 



Chapter 4. Formatting a Report 


The PRINT USING FLP statement is useful for controlling the format of 
a report. PRINT USING FLP is used in conjunction with an Image or 
FORM statement or character variable to print values according to the 
format specified by the statement or variable. The PRINT USING FLP 
statement includes the values to be printed and the statement number 
or character variable of a corresponding Image or FORM statement 
that specifies the format of the print line. For example: 

0 0 3 0 P RIN T I...I SIN G *•!• 0 , F L P , N , A 

This statement refers to statement number 40, an Image or FORM 
statement, which will cause the computer to format the arithmetic 
variables N and A on the print line. 


PRINT USING AND THE IMAGE STATEMENT 

Statement 40 could look like this: 

00MO : IN ## YRS AMT = $####.## 

The colon beginning statement 40 identifies it as an Image statement. 
The alphabetic characters are printed exactly as they appear in the 
statement, and the pound sign (#) is the symbol used to indicate that a 
value will be supplied from the output list in the PRINT USING 
statement. The value of N replaces the first set of #'s, and the value 
of A replaces the final set. The decimal point in the final set indicates 
that the value of A is to be aligned on the decimal point in the image 
specification. 

If N contains the value 10 and A contains the value 1628.88, the 
output line produced by statements 30 and 40 would look like: 

IN 1 0 Y R S A M "f = $ 1 62 8.8 B 

In the Image statement, the pound sign (#) is used as a placeholder. 

In statement 40, the first set of #'s indicates that a value is to be 
displayed using two positions; the second set displays a value over six 
positions aligned on a decimal point between the fourth and fifth 
positions. If the value to be printed is smaller than six digits (say the 
value 300.40), the first, or high-order position, would be printed with a 
blank. Excess decimal positions are rounded to the number of decimal 
position # signs. 
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The Image statement can also contain a placeholder consisting of the 
symbols I I I I for an exponential value. If you want to print a value 
containing an exponent, the Image statement could contain the 
following sequence of symbols: 

fHf. ## I i i i 

m, m Mil 

This sequence states that a value is to be printed with four digits 
followed by an exponential value. An exponential value is always 
printed with four positions for the format: E±dd. The letter E is 
followed by a plus or minus sign indicating a positive or negative 
exponent, followed by two digits. Therefore, a set of four I s must 
always be specified as placeholders for exponents. If an Image 
specification contains this sequence: 

##. m Mil 

the following shows how different values would be printed by that 
sequence: 

Value Printed Format 

123 12.3 0E-M) 1 

12 ,3 12 ,30i::>0 0 

, 123 12 . 30 !::>•• 02 

The specification calls for four digits to be printed aligned on the 
decimal point. Therefore, the number 123 is represented as 12.30 with 
an exponent of +1. The exponent tells us two things: the direction in 
which the decimal point is to be moved (+, to the right, and -, to the 
left), and the number of digits over which it is to be moved. In the 
first example, the exponent +1 tells us to move the decimal point one 
position to the right; the number 12.30E+01 is the same as 123. In the 
second example, the number 12.3 can be aligned on the decimal point 
with no action required by the exponent, hence an exponent of E+00; 
the number 12.30E+00 is the same as 12.3. The third example tells us 
to move the decimal point two positions to the left; 12.30E-02 is the 
same as .123. 

Blank positions in an array referenced by a PRINT USING statement 
are significant. The entered characters of a variable do not determine 
the size of the variable to be used by the PRINT USING statement. 

For example, with a variable A$ dimensioned to 30 for the entry of a 
name, and the name C. A. JONES entered into the variable, the PRINT 
USING statement will use all 30 positions of the variable, including the 
blank positions. 
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Note that a PRINT USING statement can be ended with a semicolon (;) 
to suppress printing of a new line and cause subsequent printing to 
occur on the same line, as shown in the following example. 

Example: 


0 0 . 1 . 0 

PRINT 

'ENTER TODAY''S DATE' 

0 020 

INPUT 

D $ 


0 030 

PRINT 

USING MO,FL 

p , m 

0 0 4- 0 

:MONTHLY SALES BY 

SALESMAN AS OF ************ 

0 0 5 0 

P PINT 

FLP 


0 06 0 

PRINT 

FL P 


0 0 7 0 

PRINT 

USING 1.00 , F 

LP 

0 09 0 

P PINT 

USING 1.1.0 , F 

L P , J 

0 0 9 0 

PRINT 

USING 1.20 , F 

LP 

0 1. 0 0 

:SALESMAN 

S A L E S M A N 

o :l. :i. o 

: NAME 


NUMBER GROSS 

o :i. 2 o 

; 

NET SALES 


0 13 0 

PRINT 

FL P 


01 '-I- 0 

PRINT 

'ENTER SALE 

SMAN‘'S NAME’ 

01.50 

P PINT 

’OP ENTER 

END TO END ' 

01.60 

INPUT 

A$ 


0 1.7 0 

IF A $ :: 

: ‘END' GOTO 

3 0 0 

0.1.00 

P PINT 

‘ ENTER SALE 

SMAN’'S NUMBER’ 

01.9 0 

INPUT 

D 


0 2 0 0 

PRINT 

’ENTER GROSS SALES’ 

0 21. 0 

INPUT 

A 


0 220 

PRINT 

'ENTER EXPE 

VISES ' 

0 230 

INPUT 

B 


02'-l- 0 
0230 

OA-B 

PRINT 

USING 2 7 0,F 

P, AT . D . A . B : 

0 26 0 

P PINT 

USING 200,F 

.,P, C 

0270 

; ♦*♦***** •*’ 

******************** 

****** $ ******** , 

0 20 0 

; 

********* . **** 



0290 GOTO .1.0-0 
0300 STOP 


:nse 


$ ****** . **** 
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In this sample program, statements 40, 100, 110, 120, 270, and 280 
are Image statements used to format the printed report shown below. 


MONTHLY SALE 

:s BY SALESMA 

N AS OF 10/19/7 

{ 



SALESMAN 

NAME 

SALESMAN 
NUMBER G 

ROSS SALES EX PI! 

:nses 

NET S 

ALE 

B, DOVER 

H , !•• R i::. A.iR j. 1J i 

s'n ■! 

3678.00 $351 

25 3 L .• 0 0 $ 151 

l , 0 0 
l , 0 0 

$5326 

, 0 0 

. 0 0 

A. JOHNSON 
D, SMITH 

860 :| 

4-89 '■! 

>856«+ . 0 0 $56: 

*534-6.0 0 $35< 

. , 0 0 

f > , 0 0 

$8 0 03 
$1-1-990 

. 0 0 

. 0 0 


PRINT USING AND THE FORM STATEMENT 

The FORM statement offers greater formatting capabilities than the 
Image statement. For example, it provides a special code to specify 
character data. It contains format control specifications to tell the 
computer how to position output on a print line; one of these 
specifications, SKIP, must be coded on the FORM statement to cause 
a line to be printed. 


Numeric Specification-PIC 

The PIC specification in the FORM statement shows a picture of the 
way a number should be formatted. This picture is enclosed in 
parentheses. The symbols #, ., and I, previously illustrated in the 
Image statement, could be used in the FORM statement in this format: 

PICU-H*. m*§ il!) 
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You recall that the # symbol is used as a placeholder for a digit and 
the I symbol is used as a placeholder for an exponent. The PIC 
specification has these additional placeholders, or digit specifiers: 

Symbol Meaning 

Z A leading zero is to be 

replaced with a blank. 

* A leading zero is to be replaced 

with an asterisk. 

$ Floating dollar sign. A dollar sign 

is to be printed immediately 
before the first significant digit. 

+ Floating plus sign. A plus sign for 

a positive number, or a minus sign 
for a negative number, is to be printed 
immediately before the first 
significant digit. 

Floating minus sign. A minus sign 
for a negative number, or a blank 
for a positive number, is to be 
printed immediately before the first 
significant digit. 

Here are examples of digit specifiers. Assume that a data item 
containing the value 112233 is to be printed. 


PIC Specification 

Printed Output 

PICCftftftftftftftftft) 

000112233 

PIC(ZZZZZZZZZ) 

112233 

PIC (###***#ftft} 

•x- 112 2 3 3 

Fic< $$$$$*ftftft) 

$ 112233 

PIC < 4-4 + t-t-tftftft ) 

+ 112233 

PIC <.-ftftftftftft ) 

112233 


If a floating character (dollar sign, plus sign, or minus sign) is specified 
only once at the start of a PIC specification, it does not float through 
the field but instead is printed in the indicated position. For example: 

PIC Specification Printed Output 

PIC<*ZZZZZftft#> * 112233 

P10 < Z Z Z Z ft ft ft > -v- 112 2 3 3 
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The PIC specification can also contain insertion characters to edit a 
printed item. Digit specifiers indicate how the number itself is to be 
treated; insertion characters simply insert additional characters into a 
field, generally to improve readability. The following insertion 
characters can be specified: 

Symbol Meaning 

B Print a blank unconditionally. 

, Print a comma conditionally (only if 

a digit precedes the comma). 

/ Print a slash conditionally (only 

if a digit precedes the slash). 

Print a decimal point conditionally 
(if the value to be printed is 
nonzero or zero suppression (Z) 
is not in effect). 

+ Trailing plus sign. When the 

+ appears in the rightmost 
position of a PIC specification, 
it is treated as a trailing sign. 

A plus sign is printed for a 
positive number, a minus sign for 
a negative number. 

Trailing minus sign. When the - 
appears in the rightmost position 
of a PIC specification, it is 
treated as a trailing sign. A 
minus sign is printed for a 
negative number, a blank for a 
positive number. 

CR When the characters CR or DB appear 

DB at the end of a PIC specification, 

they are treated as a trailing 
sign. CR or DB is printed for a 
negative number; blanks are printed 
for a positive number. 



Here are examples of insertion characters added to the examples 
previously shown: 


PIC Specification 


Printed Output 


PICC444444B4444B 44444444) 
PICCZZZBZZBZ444444) 
PIC<ZZZ,ZZZ, 444444 ) 
p :i: c<zzzzz/z44/4444 ) 
PIC < ##*##*44 , 1144) 
PIC($$$$$*444444+) 


DOG 11 2233 


11/22/33 
#112233,00 
$112233+ 
$112,233.00 


In the first example, a blank is entered after the third and fifth digits. 
Because # is denoted as the digit specifier, leading zeros are not 
suppressed. 

The second example illustrates the blank used with the Z digit 
specifier, which does suppress leading zeros. 

The third example illustrates the use of commas. The first comma is 
not printed because no digit precedes it (zero suppression having been 
specified); the second comma is printed. 

The fourth example inserts slashes. 

The fifth example illustrates the effect of a decimal point; because the 
number 112233 is an integer number, it is aligned on the decimal 
point, and zeros print out in the decimal portion of the field. 

The sixth example adds a trailing sign to a field that also contains 
floating dollar signs. 

The last example adds commas and a decimal point to format a dollar 
amount. Note that the first comma is not printed, but its absence is 
marked by a blank, as it was in the third example. The dollar sign 
floats over the comma. 


Character Specification-C 

Unlike the Image statement, the FORM statement specifies a place 
where character data is to appear, indicated by the specification code 
C. The actual character data is written in the PRINT USING statement. 

To print both character and numeric data, a PRINT USING statement 
could be written like this: 


0 0 3 0 P RIN T U SIN G 5 0 , F1... P , ‘ C 0 S T 0 F 1 , A1, ’ C H AI R S I 


B1 
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The corresponding FORM statement could look like this: 


0 0 5 0 F 0 R ii C .. i :: ' 10 < Z tt ) , C , PIC ( T $ $ , $ $ ft , ft ft) 

The first appearance of the letter C indicates that a character string 
from the PRINT statement is to be printed. The first PIC specification 
describes the arithmetic variable A1; if the value is zero, a blank is 
printed in the leftmost position, followed by a zero. The second C 
describes the second character string, and the second PIC describes 
the variable B1. 

The C specification code marks a place for character data regardless 
of the number of characters to be printed. You could specify the exact 
number of characters to be printed by indicating the number after the 
C code. For example: 

C6 

This specification indicates that 6 characters are to be printed. Care 
should be used when specifying a number because only that number 
of characters is printed. For example, if you specify C6 to print the 
character string COST OF, only the characters COST O will be printed. 


Format Control Specifications-X, POS, SKIP 

Format control specifications provide flexibility in formatting an output 
line. These specifications allow you to space over a number of print 
positions on a line, to specify the print position where a data item is 
to begin printing, and to skip print lines. 

The Xn specification spaces over n print positions. For example, XI0 
causes the printer to space the next 10 positions before printing a data 
item. 



The POSn specification prints a data item beginning in position n. For 
example, POS50 causes the next data item to print beginning in 
position 50. 


The SKIPn specification skips n print lines. To skip five lines, specify 
SKIP5. To skip to the next line, specify SKIP1 or SKIP with no 
number. For example, to cause statement 50, shown earlier, to print a 
line, SKIP must be added to it: 

0 0 5 0 F 0 R M C , PIC < Z tt ) , C , PIC < $ $ :|>, $ $ # , # #.) , 8 K X i :: * 

Statement 50 is now complete, and if combined with PRINT USING 
FLP statement number 30, 

0 0 3 0 P R X N T U SIN G 5 0 , F L P, 1 C 0 S T 0 F ' , A1, * CI IA X R S 18 1 , B :l. 

results in this output: 

C 0 8 T 0 F 1 '•!• C H A X R 8 X 8 $:!. , 51 0 . 0 0 

Here are additional statements using format control specifications: 

Example 1: 

0 .1. >•!• 0 P R X N T U SIN G 1 ! l 5, FP , A 1 , B:!. 


Statement 145 uses the POS and SKIP control specifications. POS15 
positions the printer at position 15 before printing the value contained 
in A1 described by the PIC specification. POS32 begins printing the 
value of B1 at position 32. After all printing is complete, SKIP1 causes 
the carriage to skip to the next line. 

Examp|e 2: 

I 

0 :!. :l. 0 
0115 

In statement 115, X5 states that the first five positions of the print line 
are to be skipped, and the character data controlled by the C code, the 
string COST OF, is to be printed. POS15 prints the value of A1 
beginning in position 15. POS20 prints the character string CHAIRS IS 
beginning in position 20. POS32 prints the value of B1 beginning in 
position 32. SKIP1 causes the line to be printed. 


P R X N T U 8 X N G 115 , F L. P , ‘ C 0 8 T 0 F ' , A1 , ’ C H A X R 8 X 8 ' , B1 

i : " 0 R M X 5 , C , P 0 815 P X C ( Z #) , P 0 8 2 0 , C , P 0 8 3 2, P X C < $ $ $ , $ $ # , ft # ) , 81 
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Following is a program that uses these statements. 


0100 Al»15 

0105 B1=A1*115.25 

0110 PRINT USING 115,FLP,‘COST OF *,A1,’CHAIRS IS*,B1 

0115 FORM X5,C,PQS15,PIC(Z#>,POS20,C,P0S32,PIC<$**,$$«.H#>,SKIP 

0120 FOR Al = 14 TO 1 STEP -1 

0130 B1=A1#115.25 

0140 PRINT USING 145, FLP, A1, B1 

0l»f5 FORM P0S15, PIC< Z#) , P0S32 # PIC < $$$, $$** . ##), SKIP 


This program finds the cost of 1 to 15 chairs at $115.25 each. 
Statements 110 and 115 print out the first line, statements 140 and 
145 print out all succeeding lines based on the loop defined between 
statements 120 and 150. 

Output from this program will look like this: 


Print Position 6 15 

COST OF 15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 

A* 

1 


20 32 

CHAIRS IS $1,728.75 

$1,613.50 
$1,498.25 
$1,383.00 
$1,267.75 
$1,152.50 
$1,037.25 
$922.00 
$ 806.?5 
$691.50 
$576.25 
$461.00 
$345.75 
$230.50 
$115.25 
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Example 3: 


0050 R$ ='WINS’ 

0060 IF A>B GOTO 80 
00 65 R$=‘LOSES 1 
0070 IF AXB GOTO 80 
0 0 75 R$~. ' TIES ' 

0 0 8 0 P R IN T U SIN G ? 0 . F L > H O H E T E A M X X X X X X FI N AS C n R £ A ' •••• ' . B .. R $ 
0 0 9 0 F O R M P O S .1. 0 C .. PIC ( Z # ) .. C, PIC ( Z #) O S 2 0 - C 6 , S K I p 


Statement 90 uses the POS20 and C6 control specifications to overlay 
position 20 of the print line with the value of R$. If A is 3 and B is 24, 
the printed line will look like this: 

Print Position 10 20 28 

H 0 M E T E A M L 0 S E S FIN AS C 0 R E 3 •••• 2 4 
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PRINT USING WITH A CHARACTER VARIABLE 


In addition to the Image and FORM statements for output formatting, 
BASIC also allows assignment of a format to a character variable 
which can then be referenced in input/output statements. Each 
character variable to be used in this manner should first be 
dimensioned (in a DIM statement) to the length of the format. The 
format assigned to the character variable is identical to the format 
following the colon in an Image statement, or the first 4 characters 
can be FORM, followed by the format specifications normally entered 
for a FORM statement. The following example shows the use of 
character variables for formatting. 


0 0 ;i. 0 DIM A $ 5 0 , B $ :t. 0 0 C $ 1 0 0 , D $ .1. 0 0 , E $ 10 0 


0 0 2 0 

A$~’MONTHLY SALES BY SALE 

SMAN AS OF ## 

0 0 3 0 

PRINT ' 1: 

:NTER DATE’ 


0 0 4 0 

INPUT Di 

i 


0 o 5 0 

PRINT US 

SING AT>FLP , DT 


0 0 6 0 

PRINT FI 

i :; ‘ 


0 0 7 0 

PRINT FI 

P 


0 08 0 

1 SAL! 

[ S M A N S A1.., E S M A N 

G ROSS 

U 0 9 0 

C $ :::: 1 NAM! 

• NUMBER 

SALES 

0 095 

PRINT Fi 

.,P , B $ 


0 0 96 

PRINT FI 

P, C* 


0 1 0 0 

PRINT F! 

P 


0 11 0 

PRINT ' 1 

:! N T E R S A L E S M A N 1 ‘ S 

NAME OR ENTER 

0 13 0 

INPUT N 

l> 


0 14 0 

IF NH>™ * 5 

STOP ‘ GOTO 280 


0 15 0 

PRINT ’ I 

•NTER SALESMAN 1 *S 

NUMBER 1 

016 0 

INPUT S 



0170 

PRINT ‘! 

•NTER GROSS SALES 1 


0 18 0 

INPUT G 



0 19 0 

PRINT ‘! 

•NTER EXPENSES‘ 


u 2 0 u 

IN i :: ‘ U T E 

1 ••(:< ** i::. 



0 2 2 0 
f i n 



‘i . f , "|" 

0 2 4 0 

PRINT Fi 

P 



EXPENSES 


NET ’ 
SALES‘ 


0250 GOTO 110 
02S0 STOP 
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PRINTER SPACING CONTROL 


You can use the contents of file FLS to control the number of lines 
printed per inch (see Chapter 12 for more information about file FLS). 
The printer normally prints 6 lines per inch, with 16 increments of the 
print roll per line, for a total of 96 increments. You can change the 
number of lines per inch by entering a number between 8 and 99 in 
the tenth and eleventh positions of file FLS. The number you enter is 
divided into 96 to determine the number of lines per inch. For 
example, if you enter: 

8-12 lines are printed per inch 
12 - 8 lines are printed per inch 
16-6 lines are printed per inch 
24-4 lines are printed per inch 
32-3 lines are printed per inch 

An entry of less than 12 will cause printing to be overlapped. An entry 
of zero causes suppression of spacing, which results in lines printed 
right over preceding lines. Sample WRITE FILE statements for printer 
spacing control are shown below: 


0 010 

WRITEF 

■ILE 1 

FLS 

> 


96* 

0 020 

PRINT 

FLP, 

* LI 

NE PRINTE) 

[i 1 PER INC 

0 030 

WRITEF 

ILE 1 

FLS 

f 


16* 

0 04 0 

FOR I* 

= 1 TO 

6 




0 050 

PRINT- 

FLP, 

’6 l 

LINES 

PER 

INCH’ 

0 060 

NEXT I 






0 070 

WRITEF 

ILE 1 

FLS 

f 


12’ 

0 080 

FOR I« 

: 1 TO 

8 




0 090 

PRINT 

FLP, 

*8 1 

LINES 

PER 

INCH’ 

0.1.0 0 

NEXT I 






0 11 0 

WRITEF 

ILE 1 

"LS 



08’ 

0120 

FOR I« 

1 TO 

12 




0130 

PRINT 

FLP, 

‘ 12 

LINES 

PEF 

* INCH’ 

0140 

NEXT I 






0150 

WRITEF 

ILE 1 

“LS 

f 


00 ’ 

0160 

PRINT 

FLP 





0170 

PRINT 

FLP, 

’NO 

SPACE 

TO 

OVERPRINT’ 

0180 

PRINT 

FLP, 




OVERPRINT’ 

0190 

PRINT 

FLP, 




OVERPRINT’ 



LINE PRINTED 1 PER INCH 


LINES 

LINES 


,INES 

INES 

,INES 

.INES 

.INES 

INES 

,INE! 


PH 


PER 

PER 


LINES P 


6 
6 

6 LINES PER 
6 LINES PER 
6 LINES PER 
6 LINES PER 
8 
8 

8 L 
8 L 
8 L 
8 L 
8 L 
8 L. 

'■> 

*-> 

% 

+ ? 

*-> 

+■> 

NO 


c£ 


p 

PE 

P 

P 

P 

P 

8 
> 
:> 
0 
C) 

i 

:> 


INCH 

INCH 

INCH 

INCH 

INCH 

INCH 

INCH 

INCH 


INC 

INC 

INC 

INC 

INC 

INC 


QV 


RINT 
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Chapter 5. Saving and Loading the Work Area 


In this chapter, the following topics concerning saving and loading the 
work area are discussed: 

• Determining the size of a tape or diskette file 

• Writing data to a tape or a diskette file 

• Getting data from a tape or diskette file 

• Controlling files 

• Maintaining data security 


DETERMINING THE SIZE A FILE SHOULD BE 

Before information can be stored on tape or diskette, the files on the 
tape or diskette must be formatted by the MARK command. To 
determine the size of a file needed to contain data to be saved, type in 
the LOADO command and note the available storage size. This figure 
is the amount of storage available in the work area for processing 
programs. Load a program and note the amount of storage remaining. 
Subtract the remaining size from the empty size. Then divide the 
difference by 1024 and round up to find the size needed to mark the 
file. 


SAVING AND LOADING DATA ON A TAPE OR DISKETTE FILE 

You can write (save) the contents of a work area to tape or diskette 
using the SAVE command. This allows you to enter data or programs 
into the 5110 work area and save this information for later use. 
Individual data records can also be written to a data file. 

Once the contents of the work area are saved in a tape or diskette file, 
that information can be read back into the work area using the LOAD 
command. This allows you to load and execute the same program any 
number of times. You can use a CHAIN statement in a program to 
end that program and load and execute another program that is saved 
on tape or diskette. 


Saving and Loading the Work Area 
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CONTROLLING THE FILES ON TAPE OR DISKETTE 


Once you have stored several work areas and data files on a tape or 
diskette, you might want to know what files you have in your library 
(stored on tape or diskette). You can use the UTIL command to 
display a directory of file information for a specified tape or diskette. 
The directory provides you with such information as the file number, 
the file ID, and the file type. See the UTIL Command iri the IBM 5110 
BASIC Reference Manual for a complete description of the information 
contained in the file directory. 

When files on tape or diskette contain data that is no longer required, 
you can mark these files unused by issuing the UTILDROP command. 
Once a file is marked unused, data in the file can no longer be read 
into the 5110, and the defined file space is available for other uses. 

If a diskette file is no longer required, you can make the file space 
available for reallocation by issuing the UTILFREE command. This 
allows the file space on the diskette to be used for other numbered 
files specified in the MARK command. See Chapter 7, Diskette 
Concepts for more information on how files are allocated on a 
diskette. 


MAINTAINING DATA SECURITY 

You should protect your programs and data from unauthorized access 
or accidental destruction. Several functions are built into the 5110 to 
assist you in protecting your programs and sensitive data. 


PROTECTING YOUR PROGRAMS 

After you have developed a program, you might want to keep a 
duplicate (backup) copy of the program on another diskette or tape. 
Then if the original program is accidentally destroyed, you still have 
the backup copy available. See the IBM 5110 Customer Support 
Functions Reference Manual for information on copying programs. 
You can use the SAVE command to lock a program so that it cannot 
be listed or modified. For example: 


SAVE! 5 , ‘ MASTER ' , LOCK , D8 0 

This command writes the program to file 5, diskette drive 1, and 
permanently locks the program against listing or modifying. However, 
the program can still be loaded and run: 

LOAD 15, ’MASTER’ , DSD 

When you lock a program, you should also keep an unlocked master 
copy available in a secure area. This unlocked copy can then be used 
if the program must be modified. 



PROTECTING YOUR DATA FILES 


Following are several ways to protect your data files: 

• Maintain backup data files 

• Use the file write-protect 

• Use the diskette access-protect 

• Use the SAFE switch on the tape cartridge 


MAINTAINING BACKUP DATA FILES 

You should keep a backup copy of your data files on another diskette 
or tape. Then if you accidentally destroy a data file or you encounter a 
faulty diskette, you can recover your data with minimum effort. To 
create a backup data file, you periodically copy the master data file 
onto another tape or diskette. 


Using File Write Protection 

Accidentally writing to the wrong data file can be prevented by using 
file write-protection. You can write-protect a file, preventing data from 
being written to the file, with the UTIL command. For example: 

UTIL PROTECT 'MASTER',D80 

Once the file is write-protected, data cannot be written to the file 
using the SAVE or WRITE commands. However, you can still use the 
REWRITE FILE statement to update records in the file. To turn off the 
file write-protection so that you can write data to the file, use the UTIL 
command. For example: 

UTIL PROTECT OFF 'MASTER',D80 
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Using Diskette Access Protection 


You can use the diskette volume ID, owner ID, and access protection 
to prevent the wrong diskette from being used for an application. For 
example, suppose you have a master diskette for an accounts payable 
application. After you have updated the accounts payable master data 
files, you could use the UTIL command to specify the volume ID, 
owner ID, and access protection. For example: 

U TIL V 0 LID A P M A S f , C L A R K , 0 N , D 8 0 

This command protects the diskette with a volume ID of APMAST, 
owner ID CLARK, on diskette drive 1 from being accessed. To turn off 
access-protection, you use the UTIL command and exactly match the 
diskette volume and owner ID. For example: 

U "f IL V 0 LID A P H A S T , 0 L A R K , 0 F F , D 8 0 

The UTIL command can be used in a procedure file to prevent the 
wrong diskette from being used in an application (see Chapter 3 for 
more information on proecedure files). For example, a procedure file 
might contain the following records: 

L 0 A D 3, ’A P . D AIL Y ’ , D 4- 0 

U TIL V 0 LID A ! :> M A 8 T , C L A R K .• 0 F F , D 8 0 

RUN 

U TIL V 0 LID A P t v i A S T , C L A R K , 0 N, D 8 0 

The commands in the procedure file do the following operations: 

1. Load the application program from diskette drive 2. 

2. Turn off access protection if the proper diskette is in diskette 
drive 1. 

3. Execute the application program. 

4. Turn on access protection when the application program has 
completed execution. 

If the wrong diskette was in diskette drive 2, an error occurs when the 
first command is executed, and the application program is not 
executed. 




REMOVING SENSITIVE DATA 


You are responsible for the security of any sensitive data. After you 
are through using the system, you can remove the data in the work 
area by one of the following: 

• Using the LOADO command to clear the workarea 

• Pressing the RESTART switch 

• Turning the POWER ON/OFF switch to OFF 

Several methods are available for removing sensitive data from a file. 
These methods are: 

• UTILDROP 

• Rewriting a file (OPEN for output, then CLOSE), which makes the 
old data inaccessible. 

• Filling a data file with meaningless data. For example, the following 
set of statements fills file 1 (on the built-in 5110 Model 1 tape unit) 
with zeros: 

0 0.1.0 DIM ACL 00) 

0 020 OPEN FLO , 1 E80 OUT 
0030 MAT PUT FLO,A,EOF 50 
0 04-0 GOTO 30 
0050 STOP 
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Chapter 6. Tape Concepts 


There are 204K bytes (1K=1024 bytes) of tape storage available on an 
IBM Data Cartridge. This tape storage is used for file headers, work 
area files, and data files. In this section, the following topics are 
discussed: 

• How to format the tape 

• How much storage on a tape cartridge is actually available to you 


HOW TO FORMAT THE TAPE 

You must use the MARK command to format files on the tape before 
you can store work area or data records on the tape. For example: 

MARK 10, 5, 1 

-Starting File Number 

-Number of Files To Mark 

Size of Files in 1,024 (IK) Byte Increments. In this case, 
the size of the marked files is 10,240 (10 X 1,024) 

Once the MARK command is successfully completed by the 5110, the 
tape is formatted as follows: 


File Headers 



This file header 
indicates end of 
marked tape. 


1 

2 

3 

4 

5 



This hole indicates 
the beginning of 
the tape storage. 


Each file contains 
10,240 bytes of 
storage. 


Unformatted 

Tape 


The file headers contain information about the file, such as file 
number, file name, and file type. Each file header requires 512 bytes 
of tape storage. 
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If you want to format additional files on the tape, you must use the 
MARK command again. For example: 

MARK 20, 1, 6 

^-Starting File. Remember, in this 

example, five files are already formatted. 

-Number of Files to Mark. 

-File Size. 

The tape is now formatted as follows: 


File 6 Header 



When the information in a tape file is no longer needed, you can use 
the UTILDROP command to mark the file unused. The defined file 
space remains available for other uses. However, once a file is 
formatted, you cannot increase the size of the file without remarking 
the file. When you remark an existing file, any information in that file 
and the files following the re-marked file is lost. For example, assume 
you want to increase the size of file 4 on tape from 10K to 15K: 


l 



\ 


You want to increase the size 
of file 4 by 5K. 




After the command: 


MARK 15, 


1, 4 

-Starting File Number 

-Number of Files to Format 


File Size 


is successfully completed, the tape is formatted as follows: 



15K bytes of tape storage. the marked tape, and any data following 

this file header is lost 


A formatted tape has the following characteristics: 

• Files are of variable length from 1K to 204K. 

• Files can be randomly accessed; that is, you can read a file without 
having to read the previous file. Data in the files can be accessed 
sequentially or randomly. 

• Both work area and data files can be on tape. 

• Both APL and BASIC files can be on tape. 

If you want to save the data in files 5 and 6, the files should be copied 
to a backup tape before you mark the original tape. After increasing 
the size of file 4 (MARK 15,1,4), files 5 and 6 can be remarked and 
copied from the backup tape to the original tape. 
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HOW TO DETERMINE THE STORAGE AVAILABLE ON A TAPE 
CARTRIDGE 


Each tape cartridge contains approximately 204K bytes of storage, but 
the amount of tape storage actually available to you depends on: 

• How many files are marked (formatted) on the tape 

• How the data files were written to tape 

As mentioned, each file on a tape cartridge requires one 512-byte file 
header. Therefore, the more files you mark on a tape cartridge, the 
more tape storage is used for file headers. For example, if you mark 
one 3K file on a tape, 512 bytes of tape storage are used for the file 
header. If you mark three IK files on tape, however, 1536 bytes of 
tape storage are required for the three file headers. 


One 3K File 


0.5K 


3K 


Three 1K Files 


0.5K 

IK 

0.5K 

IK 

0.5K 

IK 


Note, in these examples, that a total of 3K bytes of tape storage is 
allocated for tape files, although, for the three 1K files, an additional 
1K bytes of tape storage are used for headers. 

The amount of data you can store in a data file depends on how the 
data is written to the file. See Chapters 8, 9, and 10 for a complete 
description of writing data to the data files. For example, when you 
first write data to a data file, the individual records are sequentially 
written to tape starting at the beginning of the data file. Once these 
records are written to tape, the data file might look like this: 


Data File 


•Data Records 


\ 


Beginning of the 
Data File 


Last Data Record 



2 


/ 

Unused 

Tape Storage 


A 


/ 
End of the 

Data File 




When you add data to the stream I/O data file (see Chapter 8), the 
new data starts at the first 512-byte boundary after the last record in 
the data file. The tape storage between the last data record and the 
additional data records is unavailable for use. 

Once the new data records are written to tape, the data file might 
look like this: 


Data File 


512-Byte Boundaries (tape storage is 
^divided into 512-byte segments) 



the Data File Tape Storage Tape Storage 


As you add more data to the file, it is possible for more tape storage 
to become unavailable. 
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Chapter 7. Diskette Concepts 


The IBM diskette is a thin, flexible disk, permanently enclosed in a 
semirigid, protective, plastic jacket. When the diskette is properly 
inserted in the diskette drive, the diskette turns freely within the 
jacket. The diskette is inserted in the diskette drive as follows: 



is inserted in the diskette drive. 
The diskette drive cover must be 
closed and latched after the 
diskette is inserted. 


Data is written on the diskette at specific address locations. These 
addresses provide direct access to specific information. Data written 
at an address remains there until it has been replaced by new data. 

To read data, the system finds the desired address and then reads the 
data into the 5110. 

Before being shipped to a user, each diskette is initialized. Initialization 
is a process whereby label information and data addresses are 
recorded on the diskette. Initialization is discussed later in this section. 
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DISKETTE WEAR 


The use of Flexible Diskette Storage provides some significant 
advantages, such as low cost, compact size, multiple system functions, 
and ease of media handling and storage. It should be recognized, 
however, that during recording and reading, the read/write head is in 
contact with the media causing diskette wear over a period of time. 
Variations in the rate of wear will depend on the particular operating 
environment and application characteristics. Care in the storage, use, 
and handling can also affect diskette life. See the guidelines in the 
IBM 5110 BASIC Reference Manual. Excessive wear, handling, or 
contamination can cause possible failures in recording and/or reading. 

Ultimate wear is to some extent dependent upon total usage of 
individual tracks. Care taken to distribute data so that accessing 
occurs over the entire recording surface with about the same 
frequency can extend the useful life of the diskette. Actual experience 
with individual applications and environments will allow the 
development of guidelines for determining when the media should be 
replaced. 

Unpredictable circumstances such as contamination or severe handling 
can cause an early error to occur. 

For all the above reasons, consideration should be given to providing 
an adequate recovery plan, such as: 

• Backing up critical programs and data files on a second diskette for 
use in the event of an error on the primary diskette. 

• Periodically moving frequently-used files to alternate locations on 
the diskette; see the Copy Functions in the IBM 5110 Customer 
Support Functions Reference Manual. 




DISKETTE ADDRESSING AND LAYOUT 


A diskette address consists of a combination of cylinder number, head 
number, and record number as follows: 

CC H RR 

-Record (sector) Number. The sector 

into which the data is to be written 
or from which it is to be read. 

-Head Number. The side of the diskette on which 

the data is to be written or from which 
it is to be read. This number is 0 for all 
one-sided diskettes, 0 for side 0 of 
two-sided diskettes, and 1 for 
side 1 of two-sided diskettes. 

-Cylinder Number. This number identifies the 

cylinder onto which a physical record is written 
or from which it is read. 


Track and Cylinder 

A track is the recording area that passes the read/write head while the 
diskette makes a complete revolution. The read/write head is held by 
a carriage that can be moved to 77 distinct locations along a straight 
line from the center of the diskette. Therefore, each diskette has 77 
concentric tracks on which data can be stored. 



The diskette drive for two-sided diskettes has a read/write head on 
each side. Each track on side 0 of a two-sided diskette has an 
associated track on side 1. 

A cylinder is one track on a one-sided diskette or a pair of associated 
tracks (the corresponding tracks on opposite sides of the diskette) on 
a two-sided diskette. There are 77 cylinders on a diskette, numbered 
0 to 76. 
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Sector 


A sector is a portion of a track. All sectors on a single track are the 
same size, and the number of sectors on a track depends on the 
number of bytes per sector. See Diskette Types and Formats in this 
section. 



Index Cylinder 

Cylinder 0 is called the index cylinder and is reserved for information 
describing the diskette and its contents. It contains information about 
the diskette, such as volume and owner identification. The index 
cylinder also contains information associated with each file on the 
diskette. This includes the name of each file and the addresses 
associated with the file extents. An extent is the maximum space a file 
can occupy. The address at the beginning of this space is called the 
beginning of extent (BOE). The address at the end of this space is 
called the end of extent (EOE). A file might not use all of the space 
allocated for it by the BOE and EOE addresses; therefore, another 
address for end of data (EOD) exists. 

Actual Space Currently Used for Data 
I-1 

BOE EOD EOE 

I_I_I_ 


Area Allocated for the File (extent) 


The EOD address is used to identify the next unused area within the 
extent or to indicate that data has been written to the EOE address. 
See the Diskette Initialization function in the IBM 5110 Customer 
Support Functions Reference Manual for a complete description of the 
index cylinder. 




Alternate Cylinders 


The last two cylinders (75 and 76) are reserved for use as 
replacements (alternate cylinders) for defective cylinders. The 
remaining cylinders (1 through 74) are used for storing data. 


DISKETTE TYPES AND FORMATS 

The 5110 uses three types of diskettes: 

• One-sided, where data is recorded on just one side (Diskette 1) 

• Two-sided, where data is recorded on both sides (Diskette 2) 

• Two-sided, where data is recorded on both sides at double density 
(Diskette 2D) 

The diskettes are initialized, see Diskette Initialization in the Customer 
Support Functions Reference Manual, into various formats consisting of: 

• The number of sectors per track 

• The number of bytes per sector 
The 5110 diskette formats are: 

Sectors per Track Sectors per Cylinder Bytes per Sector 


Diskette 1 

26 

26 

128 


15 

15 

256 


8 

8 

512 

Diskette 2 

26 

52 

128 


15 

30 

256 


8 

16 

512 

Diskette 2D 

26 

52 

256 


15 

30 

512 


8 

16 

1024 


Note : The diskette types (Diskette 1, 2, or 2D) are identified on the 
diskette label, and the UTILVOL1D command can be used to determine 
the bytes per sector (physical record size). 
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DISKETTE INITIALIZATION 


Diskettes must be initialized before they can be used for storing data. 

All diskettes are initialized before they are shipped to a customer. 

Reinitializing is not required, unless: 

• The diskette was exposed to a strong magnetic field. 

• A defect occurred in one or two cylinders. In this case, initialization 
can be used to take the bad cylinder(s) out of service and use one 
or two of the alternate cylinders. 

• A sector sequence other than the sequence existing on the diskette 
is desired. 

• A format (number of sectors per cylinder) other than the existing 
format is desired. 

See the IBM 5110 Customer Support Functions Reference Manual for 

a description of the disk initialization program. 


VOLUME ID, OWNER ID, AND VOLUME-PROTECT INDICATOR 

Each initialized diskette has a volume ID, owner ID, and 
volume-protect indicator. The volume ID is the identification of the 
diskette volume, and the owner ID is the identification of the diskette 
volume owner. The volume-protect indicator is used to prevent 
unauthorized access to the diskette volume. 

The UTILVOLID command is used to display or change the volume ID 
and owner ID, or to change the volume-protect indicator. 


FILE ID 

Each file on a diskette has a file ID (file name). When the diskette files 
are formatted, a file ID is automatically generated, even though the 
files are unused. For example, the file ID for file 1 is SYS0001. See 
the IBM 5110 BASIC Reference Manual, for more information on file 
names when storing data. 


DISKETTE FILE WRITE-PROTECT INDICATOR 

Each file header contains a write-protect indicator. When the 
write-protect indicator is on, the file can be read into storage and 
updated, but existing data on the diskette cannot be written over with 
new data. The UTILPROTECT command invokes or removes the 
write-protect indicator for a diskette file. 



DISKETTE FILE ORGANIZATION 


You must use the MARK command to allocate file space on the 
diskette before you can store work area or data records on the 
diskette. For example: 

MARK 10, 5, 1, D80 

^-Diskette Drive 1 

-Starting File Number 

-Number of Files to Format 

-Size of the Files in 1024 (IK) Byte Increments. 

In this case, the size of the marked files is 
10240 (10x1024) bytes. 

Unlike tape files, diskette files are not always formatted sequentially 
on the diskette. For example, file 2 might be on cylinder 3, file 3 on 
cylinder 9, and file 4 on cylinder 7. You can control the location of a 
file on the diskette only by using a totally unmarked diskette and 
issuing MARK commands in the same order as the files are to be 
formatted on the diskette. 

When the information in a diskette file is no longer needed, you can 
use the UTILDROP command to mark the file unused. Defined space 
of the file remains available for other uses. Flowever, once a file is 
formatted, you cannot increase the size of the file without remarking 
the file. Reallocating diskette file space is discussed next. 

REALLOCATING DISKETTE FILE SPACE 

Unlike tape files, when you re-mark an existing diskette file, no other 
diskette files are affected. When you re-mark a diskette file to 
increase the size, the file space presently allocated to that diskette file 
is made available for other files being marked. The re-marked file will 
then be located on the diskette where there is enough continuous 
storage available for that file. For example, assume you want to 
increase the size of file 4 from 10K to 15K by issuing a MARK 15, 1, 

4, D80 command: 


Disk 

Cylinder 


2 

3 


_ £ _ 

'- V -' 


After you issue the MARK command 
this file space is no longer allocated 
for File 4. 
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Once the file space previously occupied by file 4 is available, that file 
space will be used by subsequent MARK command that marks a file 
of 10K or smaller. 

After the MARK command is successfully completed, file 4 is 
formatted on the diskette at a location where at least 15K of 
continuous storage is available. 




20K of unallocated diskette storage was 
available at this location before the 
MARK command was issued. 


Diskette 

Cylinder 


Another 

Diskette 

Cylinder 


Note: If you are marking more than one file on the diskette, the 
system checks the starting file and each subsequent file within the 
range you specify for a file that contains data. If any of these files 
contain data, the ALREADY MARKED message is displayed. The 
UTILFREE command can be used to free space occupied by files that 
are no longer needed. 


DETERMINING THE STORAGE AVAILABLE ON A DISKETTE 

Available diskette storage varies, depending upon the type of diskette 
being used. The amount of storage depends on: 

• Whether data can be recorded on just one side or on both sides of 
the diskette 

• The number of sectors per cylinder 

• The number of bytes per sector 



Each diskette has 77 cylinders. Cylinder 0 is called the index track and 
is reserved for information (file headers) about the diskette files. 
Cylinders 75 and 76 are alternate cylinders used as replacements for 
bad cylinders. This leaves cylinders 1 through 74 available for data 
storage. The following chart shows the amount of storage available 
with the different types of diskettes: 



Sectors per Cylinder 

Bytes per Sector 

Available Storage 
Bytes (Cylinders ‘ 

Diskette 1 

26 

128 

246,272 


15 

256 

284,160 


8 

512 

303,104 

Diskette 2 

52 

128 

492,544 


30 

256 

568,320 


16 

512 

606,208 

Diskette 2D 

52 

256 

985,088 


30 

512 

1,136,640 


16 

1024 

1,212,416 


Although the previous chart shows the maximum amount of diskette 
storage, the amount of diskette storage actually available to you 
depends on: 

• The number and the size of the files marked on the diskette 


• The types of data files written to the diskette 

• How the file space is allocated from previous MARK and UTILFREE 
commands 

• Whether an extended label area was requested at initialization time 
See the IBM 5110 Customer Support Functions Reference Manual. 
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Number and Size of the Diskette Files 


Generally, there is a maximum number of files that can be on a 
diskette: 


Diskette 1 Diskette 2 Diskette 2D 

Maximum Number 19 45 71 

of Files 

If you use Diskette 2D, see the disk initialization program in the IBM 
5110 Customer Support Functions Reference Manual, for information 
on how to get additional file headers. 

If you mark the maximum number of files without using all the 
available file space, the remaining file space becomes unavailable for 
storing data. For example, assume you have an unmarked Diskette 1 
with 128 bytes per sector. This diskette has 246,272 bytes available 
for storing data, and you issue the following command: 

MARK 10, 19, 1, D80 

-Diskette Drive 1 

-Starting File Number 

-Number of Files to be Marked 

-Size of Each File 

This command marks the diskette with the maximum of 19 files. Each 
file is 10K bytes; therefore, a maximum of 190K (194,560) bytes of 
storage is allocated for the files. Now, if you subtract the allocated 
diskette storage from the available diskette file space: 

246,272 
- 194,560 

51,712 •+ -This much diskette storage is 

unused and unavailable for you 
to store data. 



How the File Space is Allocated 

Earlier in this section, we discussed reallocating diskette file space 
using the UTILFREE and MARK commands; see Reallocating Diskette 
File Space. Using the UTILFREE and MARK commands to reallocate 
diskette file space can cause fragmented blocks of unallocated file 
space on the diskette. For example, assume that a diskette has all file 
space allocated except the following 15K of file space on a cylinder: 


Diskette 

Cylinder 



File Space File Space 

If you need that 15K of storage to mark a new file, the storage is not 
available because it is not in 15K contiguous bytes. 

The fragmented blocks of unallocated file space can be made available 
by the compress function; see the IBM 5110 Customer Support 
Functions Reference Manual. The compress function closes the gaps 
caused by the unallocated file space and places all of the unallocated 
file space in one contiguous area. 
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Chapter 8. Introduction To Data Files 


FILES, RECORDS, AND FIELDS 


A file is a collection of related data items which are grouped together 
in records. Most of us carry a driver's license. That is a record. What 
about a time card? That too is a record. Each of those records 
contains items related to the purpose of the specific document. The 
related items are called fields. The following illustration shows a 
record containing the fields of information that can be found on a 
driver's license: 


License No. 


Eyes 


\ \_\_\_ \\l 

\ 

ROBERT JAMES 

\ 

13 FORE AVE. ANYTOWN, N.Y. 

9-30-42 

\ 

132-5711 

5-9 

1 

BR 

M 


Each field is related to the record in that it contains information 
relating to the specific driver. A field is the amount of space set aside 
for each data item. The next illustration shows a record containing the 
fields of information found on a time card: 


Name 


Location Date Serial No. Shift Start Time 


TOM ROBERTS 


ENDICOTT 


10-10-74 


83215 



8:00 


A group of records makes up a file. A 5110 data file contains records 
in a specific sequence just as a filing cabinet does. 

The following illustration shows a record containing customer 
information that would be used in making out an invoice: 


Customer 

Number 


Name 


Street 

Address 


City, Street 


137250 


JAMES CONSTRUCTION CO. 


\ 


Billing 

Code 


13 TOPPER AVE 


TROY, N.Y. 


13 
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The file would contain as many records as there are customer 
numbers. A file should be given a unique name so that the file can be 
distinguished from other files. Because the record in the previous 
illustration contains customer master information, the file could be 
named CUSTOMER.MASTER. A file containing master information 
about the products in your inventory could be named ITEM.MASTER. 

Different files can contain different record layouts. For example, the 
following illustration shows a record that has items related to the item 
file: 


Item 

Number 


\ 


Description 


Price 


874164 


WIDGET 


l-^-A 


Qty in 
Stock 


13.95 


0043 


Organizing a File 

An important part of any data processing job is file organization. File 
organization is the arrangement of records in the file. There are two 
types of files using the 5110: stream I/O and record I/O. 


Stream I/O 

For stream I/O, all the data items are organized sequentially on the 
tape or diskette, with a comma used as the delimiter between fields. 
For example, a customer master file might be formatted as follows: 


I 


Customer 1, John Smith, 4016 28th. St., City, 55555, Customer 2, Joe Jones, 


The fields are variable in length because only the exact number of 
characters is maintained. In order to read customer number 2 and the 
related fields, the 5110 must start at the beginning of the file and 
sequentially read each field until the desired customer information is 
read. 




Record I/O 


The corresponding fields of each record in a record I/O file most have 
the same length; no delimiters (commas) are retired between fields. 
For example, a customer master file might be formatted as follows: 


Customer 1 

John Smith 

Customer 2 

Tom Stewart 


11 Field 
Character 


20 Field 
Character 


Record 1 (31 Characters) 


11 Field 
Character 


20 Field 
Character 


Record 2 (31 Characters) 



The record and field sizes are established as the application is 
designed; see Designing A Record in Chapter 10. 

Unlike stream I/O files, record I/O files can be accessed in three 
ways: 

1. Sequential. Each record is accessed in the same order they were 
written to the file. 

2. Direct. Individual records can be accessed by specifying the record 
number (relative record number). 

3. Indexed. An index is used to find an individual record in a file. 
Therefore, you do not have to know the relative record number of a 
record before you can access the record. See Data Files and 
Access Methods in the IBM 5110 BASIC Reference Manual for more 
information. 

The next chapter describes the characteristics of the 5110 data file 
processing methods. 
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Chapter 9. Characteristics of Accessing Data Files 


This chapter describes the characteristics of data files when the files 
are accessed: 

• In sequential order 

• In direct order by relative record number 

• In direct order using an index 

This chapter also discusses maintaining files. 


SEQUENTIAL ACCESS 

For both stream I/O and record I/O, a file can be accessed 
sequentially. That is, the records are accessed one after another in the 
order they occur. An example of a sequentially accessed file might be 
an employee master file. This file contains information needed for 
various reports concerning each employee, such as payroll checks. 
Because checks are processed by employee number, records are 
accessed in order. The lowest employee number is accessed and 
processed first and so on until the last record, the highest employee 
number, is accessed and processed. 


DIRECT ACCESS BY RELATIVE RECORD NUMBER 

For record I/O, files can be accessed directly using the relative record 
number. This allows you to process records in the file faster than if 
you used sequential accessing. For example, assume you have an item 
master file that contains stock status information on 1000 items by 
item number. If you want to know the stock status of item number 
500 in the file, direct accessing allows you to specify the record 
number containing the information. This record is then accessed 
directly and the information is available. However, if the file is 
sequentially accessed, you must read all of the preceding records 
before you can read the record that contains the information you need. 
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DIRECT PROCESSING BY INDEX KEY 


For record I/O, files can be accessed directly using an index to locate 
the records in the file. The file index is created as the records are 
written to the file. The index contains a key, such as customer number 
or item number, and the relative record numbers of the record. When 
you want to process a specific record, you must specify the index key 
and the system accesses the proper record using the address of the 
record associated with that key. 

After the index is created, the index can be sorted into ascending 
sequence. For example, as a file is created, the index and file are as 
follows: 


1 

2 

3 

4 

5 

6 

7 

zt 

10 

40 

20 

60 

30 

50 

70 

ZD 


Data File 


10 


40 


20 


60 


30 


50 


70 


File Index 


Records 


However, after the index is sorted in ascending sequence, the index 
and file are as follows: 
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File Index Records 


The diskette address of the record associated with each key remains 
the same. This allows you to access the data file in several ways. 

Sequential Accessing by Key 

When an indexed file is accessed sequentially by key, the keys are 
processed one after another in ascending order. Even if the records 
are not in order on the file, they are accessed in order using the index. 

An indexed file can also be accessed sequentially, without using the 
index. Data records are accessed sequentially, that is, first record, 
second record, and so on, from the beginning of the file to the end of 
the file. However, if the records are not sorted first, they might not be 
in order. 

Note\ If you access an indexed file without using the index, and add 
or update records in the file, a key is not added to the key index for 
the added records, and existing keys within a record could be changed 
when you are updating a record. 





Direct Accessing 

Indexed files can also be accessed directly. This type of accessing 
also uses the index and is called direct accessing by key. Direct 
accessing by key permits processing of one particular record without 
regard to its relation to other records. You must first specify the key 
of the record. The key is then found in the index; the relative record 
number (adjacent to key) is used to locate the record; and the record 
is transferred to storage for processing. For example, records in a 
customer master file are to be updated to reflect current information. 
The transaction record number entries are not in order. The system 
finds the record by matching the customer number in the entry with 
the key (customer number in the index). The address, adjacent to this 
key, is then used to find the record. 

Often an indexed file is used in several different jobs each of which 
requires a different accessing method. For example, during statement 
writing, a customer file may be accessed sequentially to allow cyclic 
statement writing. During a billing job, the same file may be accessed 
directly by key to allow the updating of specific master records. Then, 
during an aged trial balance job (each customer's outstanding balance 
is printed), the file may be accessed sequentially by key. 

Indexed files can also be accessed by relative record number. This 
method of accessing requires that the file index be bypassed. 

Records in the data file can then be accessed by using a number 
(relative record number) indicating their relative position in the file. 


MAINTAINING DATA FILES 

Once a file is created, file maintenance is often necessary. File 
maintenance means performing those activities that keep a file current 
for daily processing needs. Some file maintenance activities are 
adding, deleting, and updating records. Adding means putting a 
record in a file after the file is created. Deleting means identifying a 
record so it will not be processed with other records. Updating means 
adding or changing some data in a record. 
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Adding Records 

Records can be added to a file after the file has been created. When 
records are added to a file, they are written at the end of the file. 
Thus, the file is extended by the added records. 

Sometimes, however, the new records must be merged between the 
records already in the file. This may be necessary to keep the file in a 
particular order. In order to put the new records in the proper 
sequence, you must sort the file to create a new file containing the 
added records in the correct location. 

When a record is added to an indexed file, the system checks to 
ensure that the record key is not a duplicate of a record key already in 
the file; if the key is not a duplicate, it is added to the end of the file. 
The keys of the added records and the keys of original records should 
then be sorted, so that the keys of all the records in the file are in 
ascending sequence in the index. When the keys are in ascending 
order, the 5110 uses less time to search the index. 


Tagging Records for Deletion 

When a record becomes inactive, you might not want to process it 
with the other records. A record cannot be physically removed from 
the file during regular processing; therefore, it is necessary to identify 
or tag the record so it can be bypassed. One way to tag such a record 
is to put a code, called a delete code, in a particular location in the 
record. When the file is processed, your programs can check for the 
delete code; if the delete code is present, the record is bypassed. 

When several records in a file have been tagged for deletion, you 
should remove them from the file. This will free file space. You can 
remove the deleted records by using a program to copy the records to 
be retained onto another file. 

For an indexed file, you can also use the DELETE FILE statement to 
tag the record key in the index for the record to be bypassed. This 
does not alter the record in the master file. 



Updating Records 

When you update records in a file, you can edit or change some data 
on the record. For example, in an inventory file you might want to add 
the quantity of items received to the previous quantity on hand. The 
record to be updated is read (by the READ FILE statement) into 
storage, changed, and written back in its original location by the 
REWRITE FILE statement. 


Reorganizing a File 

After file maintenance activities are performed, it might be necessary 
to reorganize your file to increase processing efficiency and free file 
space. This is done by using a BASIC program to physically merge the 
added records in sequence with the records originally created, and to 
remove the records tagged for deletion by copying the existing file 
and writing it into a new file. During the copy, deleted records can be 
removed from the file, and records previously added to the file are 
copied into the new file in sequence with the original records. The old 
file can then be used to contain new data. 

A Diskette Sort feature is provided to allow you to change the order of 
record I/O files. For more information about this program, see the 
IBM Customer Support Functions Reference Manual. This feature 
allows you to sort the records and write them to a new file. Also, you 
can sort the file and write just the record numbers, which indicate 
where the records are located on the diskette, to a new file. This file, 
called an address out file, can then be used to access the original 
records. For example: 


Relative Record Number 



access the master file 
in ascending order. 
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The following statements might be used in a program to access a file 
in order using the record numbers in the address out file: 


<> 


0030 OPEN FILE 
OO'i-O OPEN FILE 
0050 READ FILE 
0 060 FORM DM- 
0070 READ FILE 


FL1,'DB0 ', 1 , 'NAMES',ALL 
FL2, ' D80 ' .. 2 , ' ADDSORT* , IN 
USING 060 FL2 .. R 

FL1.. REOR, A$ 
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Chapter 10. Designing a Record and Determining File Size for Record I/O Files 


DESIGNING A RECORD 

The applications that use a certain file determine what data is needed 
in a record. You should study these applications and then decide the 
layout of the record. Layout means the arrangement of fields in a 
record. When you design a record, you determine field length, 
location, and name. 

To illustrate these design considerations, a name and address file is 
used in this chapter. Each record in the file contains the following 
data: 

Field 

Customer number 
Name 

Street address 
City and state 
Zip code 
Record code 
Delete code 
(Other fields) 


Determining Field Size 

Field size depends on the nature of the data in the field. First, the 
length of the data may vary. In this example, name is 20 positions. 

The length of each customer's name varies, but 20 positions should be 
sufficient for the names. Secondly, all data in a field may be the same 
length. For example, customer number is six positions, and all six 
positions are used in each record. 

There are no firm rules for determining field size. The major problem 
involves fields with variable-length data. For example, if name is 
planned as 15 positions, and a new customer has 19 characters in his 
name, a problem arises when his record is added to the file. To avoid 
this problem, try to estimate the largest length of the data that will be 
contained in a field. Use this length to determine field size. 


Size (number of positions) 
6 

20 

20 

20 

5 

2 

1 

47 (total) 

121 TOTAL 
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Providing for a Delete Code 


Records are not automatically deleted. You must place a delete code 
on a record with a REWRITE FILE statement. Then when the file is 
processed, your program can bypass the record. 

For example, you might use the delete code to indicate that a 
customer is inactive and that his account information should not be 
processed when generating a report. 


Record Expansion 

It is often wise to allow for data to be added to a record. For 
example, suppose this name and address file was created with the 
fields described, and at a later time an addition to each customer's zip 
code is needed. If all positions in the record are used, there is no 
place to make the addition. Because record length is being 
established, we can allow for such additions to this record. Although it 
is often difficult at the planning stage to imagine what data might be 
added, it is wise to reserve extra space; a minimum of 10% is 
suggested. 


Designing a Sample Record 

Assume you are teaching a class and you decide to set up a record for 


each person. Each record will contain the person's name, his home 
address, test marks for five tests you plan to give, his average mark, 
and a code to indicate whether he is an honor student. The entries in 
the record might look like this: 

ENTRY 

CHARACTERS 

NAME 

25 

ADDRESS 

65 

GRADES 

15 

AVERAGE 

5 

HONORS 

1 


111 Total 

Altogether, these entries take up 111 characters. You decide to 


include additional space in each record for possible entries to be 
added later, such as awards, special achievements, and remarks. 
Altogether, you decide to have a record with 128 characters in a file 
named CLASS. 



DETERMINING THE SIZE OF A FILE 

To determine the size of a file, you must plan how many records will 
be in the file at a specified time. 

To determine the number of records in a file, consider several factors. 
First, you must know how many records will be in the file when it is 
created. If the file already exists, perhaps as a card file, use the 
number of records in this file as a base. 

You must also know whether records will be added or deleted. If 
additions are expected, how many records are expected, and how 
often will they occur? If records will be tagged for deletion, consider 
periodically removing them from the file. By removing records that 
you no longer need, you free diskette space and allow more records 
to be added. 

Only after considering these factors and the applications that use the 
file can you determine the number of records in the file. For example, 
the customer name and address file will contain 6000 records at 
creation time. It is estimated that each month 200 records will be 
added and 80 records will be deleted. It is also planned that the 
deletion records will be removed once a month. At the end of six 
months the file will contain 6720 records (1200 records are added; 480 
records are deleted). 


6000 

Records at creation 

+1200 

Records added in six months 

7200 

- 480 

Records deleted in six months 

6720 

Records in file after six months 


This example points out another factor to consider. When determining 
the number of records in a file, consider expansion for a reasonable 
time into the future (at least six months). Of course, most files have 
deletions, and thus growth is usually slow. In a file where the number 
of additions and deletions are about the same, records tagged for 
deletion need to be removed only when the diskette space allowed for 
the file is filled. 
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Calculating File Space 


To determine the file space, you must know the number of characters 
in the file. To calculate the number of characters in a file, multiply the 
number of records (allowing for expansion) by the length of each 
record. For the customer name and address file, there will be 6720 
records in the file at the end of six months. Each record contains 128 
characters. Thus, the number of characters in the file is calculated as: 


6720 

Number of Records in the File 

x128 

Number of Characters in Each Record 

860,160 

Total Characters in the File 


and the file should be marked for 840K. 


Calculating Index File Space 

If the file is indexed, the system stores the index on a file. To 
determine the space needed for the index, you must know the size of 
the index entry (an index entry consists of a key and a diskette 
address). Key lengths vary, depending upon the application up to a 
maximum of 28 characters, but diskette addresses are always 4 
characters long. Thus, the key entry is calculated as follows: 


Key Entry = Key Field Length +4 


Note: The records in an index file must be 8, 16, or 32 characters 
long. Therefore, if the key entry is greater than 8 but less than 16, the 
index file record length is 16. Similarly, if the entry length is greater 
than 16 but less than 32, the index record length is 32. 

In the name and address file described earlier in this chapter, the key 
field is customer number (#), and it is 6 characters long. In this case, 
the key entry is 10 (6 + 4 = 10) and the index file record length is 16 
characters. 





Now that we know the record size, we can calculate the storage 
required: 

16*6,720 107,520 

Thus, the index file should be marked for 105K (K 1,024 bytes). 


End of File Condition 

It is important to allocate sufficient file space for an indexed data file 
and the corresponding index key file. If an EOF (end of file) condition 
occurs, the data file and the key file may contain an unequal number 
of records. Recovery procedures will be necessary to replace the 
missing records. See the IBM 5110 Customer Support Functions 
Reference Manual for more information on recovery procedures. 

After you determine the amount of space the file requires, you can 
decide where to locate the file on the diskette. A diskette can contain 
several files, depending upon their size: therefore, you should 
document the files that are on each diskette using the UTIL PRINT 
command. 

As you create more files, you can refer to the directory of a particular 
diskette to determine the amount of available space on that diskette. 


Review-Calculating File Space 


Calculation 1: Record Space 

To calculate the space required for the records of a file, the following 
steps are necessary: 

1. Multiply the number of records by record length to get the total 
number of characters. 

2. Divide the total number of characters by 1,024 and round up the 
quotient. 

3. Mark the file to the round-up number of K-bytes. 


Calculation 2: Index Space 

To calculate the amount of space required for an index, the steps are: 

1. Add 4 to the key field to get the length of the key entries. 

2. Determine index file record length, which must be 8, 16, or 32. 
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3. Multiply the index file record length by the record count to get the 
character count. 

4. Divide the character count by 1,024, then round up the quotient. 

5. Mark the file to the round-up number of K-bytes (characters). 


DOCUMENTING RECORD LAYOUT 

Documenting the record layout makes your BASIC program easier to 
write. The following example shows the layout of a customer master 
record: 


R 

# 

N$ 

A$ 

C$ 

Other Fields 

^ | Reserved Space 


1 2 3 8 9 28 29 48 49 68 69 


where: 

R = Record code 
# = Customer number 
N$ = Customer name 
A$ = Customer street address 
C$ = City and state 
D = Delete code 

A record layout includes the order of the fields in the record, the 
length of each field, and the name of each field. 


Record Length 

A record may contain all predefined fields, or space may be reserved 
for data to be added to the record. In either case, all records in a 
particular file must be the same length. In your BASIC programs you 
must specify record length. Record length is the sum of the field 
lengths (including reserved space). 

In the previous example, the sum of the fields is 116 positions. 
However, the record length is established at 128, thus 12 positions are 
reserved for data that might be added at a later time. 



Chapter 11. Processing a Data File 


This chapter discusses how to process stream I/O and record I/O 
data files. 

PROCESSING STREAM I/O FILES 

To process a stream I/O data file, you follow this sequence: 

1. Open the data file. 

2. Sequentially read from or write to the file. 

3. Close the data file. 

Opening and Closing Stream I/O Files 

Files must be activated or opened before they can be used. A file can 
only be activated with an OPEN statement in the program. For 
example: 

0 0:1.0 OPEN FL.'I... '080 ' , 2, IN 

The word IN indicates that the file is to be used for retrieving data 
items from the file for use in the program. If the file were to be used 
for storing data, it could be opened explicitly as an output file with this 
statement: 

0020 OPEN FL1,'D80‘,2,’NAME’,OUT 

Now, look at the following OPEN statement: 

0210 OPEN FL3, ’D80‘,5, 'ITEM.MASTER *,IN 
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For input/output operations, a file must be identified with a file 
reference of FL0-FL9. In the previous example, FL3. This file reference 
is used to identify the file when you are using GET or PUT statements 
(for example, GET FL3, A, B, C). After the file reference, the device is 
specified (for example, D80). A file number and/or file name can also 
be entered for an OPEN statement. For the previous OPEN statement, 
the file number is 5 and the file name is ITEM.MASTER. For diskette 
data files, a file name must be specified when the file is created. 
However, for tape files or reading any file, the file name does not 
need to be specified. 

Normally, a file is deactivated or closed by the system after execution 
of your program. However, if you want to switch an input file to 
output (or vice versa) and continue to use it in the same program, you 
must explicitly deactivate it by using the CLOSE statement before 
reopening it. (If you did not use the CLOSE statement and attempted 
to use an output file for input or vice versa, execution of your program 
would be terminated.) CLOSE deactivates the file; a subsequent OPEN 
statement opens (reactivates) the file for its new use and repositions it 
at its beginning. For example: 


o o 1 o o p 

EN r 

LG , ' 308 0 ' , 4- : ' 

OCC 

0020 PU 

r fi 

.,8,30$ , R$ , A . B , 

1;, I 

0 030 CL 
0 0 4- 0 0 P 

3SE 
EN i 

FLO 

" L 8 , ' 10 8 0 ' , 4-, ' 

OCi 

0 050 GE 

•f FI 

8,0 $ , k $ A .. B .i 

:::, i 


In this example, the values assigned to the variables D$, R$, A, B, C, 
and D (statement 20) will be stored in file 4 (named ACCTS) on 
diskette drive 1. The file is then closed and reopened for input. 
Statement 50 then retrieves the variable values from the file. File 
reference code FL8 is used only to refer to the file opened in 
statements 10 and 40. 




Writing to and Reading from Stream I/O Files 

Stream I/O files can only be accessed sequentially. That is, you can 
only write or read records in sequential order starting from the 
beginning of the file. To do this, you use the PUT and GET 
statements. For example: 


0 0 

80 

OPEN FL1, "080 1 ,2, ‘ IF 

TEREST',OUT 


0 0 

90 

PRINT 'ENTER PRINCIF 

'AL 1 


01 

0 0 

INPUT P 



0 1 

10 

FOR T :::: 1 TO 10\ 

Execute statements 130 and 

140 

0 .1. 

2 0 

FOR R«.1. TO 20/" 

two hundred times. 


o :i. 

3 0 

A”P# (1 R/l 0 0 > IT 



01 

4 0 

PUT FL.1. , T, R , A -«- 

— Write the values of T, R, and 

A 

0:1. 

30 

NEXT R 

to the data file. 


0.1. 

60 

NEXT T 



0 :!. 

7 0 

STOP 




The PUT statement instructs the computer to put the values contained 
in the variables T, R, and A into the file referenced by FL1. 

Now, to read and print the data written to the file, you could use the 
following program: 

0 0:1.0 OPEN FLO, • DO0 ' , 2, IN 

0 0 2 0 P R IN T ‘ T I M E ' , * R AIE ' , ' A H 0 U N T ' 

0 030 FOR T= :l. TO 20 0 

0 01+0 GET FL8,A., B,C 

0 0 5 0 P R IN T A B, C --Display the data u nder 

0 060 NEXT T the appropriate title. 

0070 STOP 

It is not necessary to use the same variable names as when the file 
was created. The important requirement is that the values in the file 
and the variables to which they are assigned must be the same type: 
arithmetic variables for arithmetic values, character variables for 
character values. 

After the first GET is executed, the file is positioned at the next value. 
In the previous example, the GET statement is executed 200 times to 
access all the data previously stored. 
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Notice what happens when an input file is closed and reactivated as 
an output file. 

0 02 0 OPEN Fiji , ‘ D8 0 ' 2 1 AF 1 , IN 
0 030 GET FUi ,A, B,C,D,E 
0 0 M O 

0 0 50 A3 6 
0 060 C :::: C-KB 
0 070 CLOSE FLM- 

0 080 OPEN FLM-, ' D80 ’ .. 2, ' AF 1 , OUT 
0 090 PUT FUi , A , B , C 

A previously created file named AF is activated for input,, In statement 
30, five values are made available to the program from file 2. In 
statements 40 through 60, new values are acquired for A, B, and C. 
Statement 70 deactivates AF, and statement 80 re-opens the file for 
output. Statement 90 places the new values for A through C into the 
file. All of the old values in the file are lost. 


Repositioning Files 

Occasionally you may have to use an input file or an output file more 
than one time in the same program. The RESET statement allows you 
to reposition the file without deactivating it (deactivation is necessary 
only when the function of a file is changed from input to output or 
vice versa). For example: 

0050 GET FL9,X,Y # Z,Q # R,S 
<> 

<> 

0 1 0 0 

o i :i. o 


0:1.50 RESET FI...9 
0 16 0 G I- T F L 9 , X , Y , Z , Q , R S 

Between statements 50 and 100, the variables X, Y, Z, Cl, R, and S 
could be used in one set of calculations and their values changed. 
Repositioning the file to the beginning permits the original values in 
the file to be made available and put into variables X, Y, Z, Q, R, and S 
again for different calculations or uses between statements 110 and 
150, and again between 160 and the end of the program. 


RESET F!.,9 --Repositions file to 

GET FL9, X, Y, Z, Q, R, 8 its beginning 
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To add data to the end of a file, you can use the RESET statement 
with the END keyword. When RESET END is specified to a stream I/O 
file opened for input, the file is closed and reopened for output. In 
effect, RESET FLx END changes an input file to an output file. The file 
is reset so that writing of new data begins at the end of any existing 
data in the file. 

0200 RESET ELI END 

This statement positions FL1 at the end of the last data item in file 
one. PUT statements appearing after statement 0200 place additional 
data into the file. 


Input/Output Error Handling 

Certain error conditions can occur while you are processing files. As 
an example, when reading through a file, you need to take action after 
the last item is read; otherwise the computer will terminate the 
program. The EOF (end of file) clause can be written in the GET 
statement to branch to another program statement when the end of 
the file is reached. 

A GET statement with an EOF clause could look like this: 

0 04-0 GET EL6 , X , Y , Z, EOF 100 

This statement directs the computer to statement 100 when the end of 
the file is reached. At statement 100, you could end the program, or 
close the file and continue processing, or perform any number of 
actions. The important thing is that specifying the EOF clause allows 
you to retain control of program execution. 

The EOF clause can be specified on the PUT statement as well. Note 
that if an EOF condition occurs, not all of the output data may have 
been written into the file. 
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These are other error handling clauses: 

Clause Meaning 

IOERR n Branch to the statement numbered n 

if a hardware malfunction prevents 
reading or writing of a record. IOERR 
can be specified on the GET and PUT 
statements. 

CONV n Branch to the statement numbered n 

if a conversion error occurs while a 
data item is being assigned, for example, 
if an attempt is made to read character 
data into a numeric variable. CONV can 
be specified on the GET statement but not 
on the PUT statement. 

Instead of writing these error handling clauses on many GET and PUT 
statements throughout your program, you can write them on one or 
more EXIT statements. An EXIT statement is used in conjunction with 
many input/output statements to group error handling in one place. 
The statement could look like this: 

o o 8 o e x :i: r e u f :i. o o, :i: o e e r i 5 o, c o n v 2 o o 

This statement tells the computer to branch to statement 100 when 
the end of the file is reached, to branch to statement 150 if a 
hardware error is encountered, and to branch to statement 200 if a 
data conversion error is encountered. 


ACCESSING RECORD I/O FILES 

You can access record I/O files by three methods: sequential, direct, 
and indexed. 

The sequential access method is one in which the records are 
accessed in the order in which they are entered. To use an example of 
the 50 states, if you enter the records in alphabetic order, the first 
record is Alabama, then Alaska, Arizona, Arkansas, and so on. If you 
enter them in geographic order, say with the New England states first, 
the order is Maine, New Hampshire, Vermont, and so on. In either 
case, all records are retrieved sequentially in the same order that they 
were entered. 



In a record-oriented file, each record has a record number relative to 
the first record. If the 50 states are stored alphabetically, the Arkansas 
record has a relative record number of 4. The direct access method 
can be used to retrieve records directly by record number. 

An indexed access method is one in which each record is stored with 
a unique identification called a key. If the 50 states were stored with a 
key (for example, the key could be the name of the state), you can tell 
the 5110 which key to look for. The computer looks through an index 
until it finds the particular key and then retrieves the corresponding 
record from the master file. Thus with an index, each record can be 
retrieved directly. 

To process a record I/O file, you follow this sequence: 

1. Open the data file. 

2. Access the file sequentially, directly, or indexed directly. 

3. Close the data file. 


Opening and Closing Record I/O Files 

Record-oriented files, like stream-oriented files, must be opened 
explicitly. A record-oriented file is opened explicitly through the OPEN 
FILE statement. As you may recall, for stream-oriented files, OPEN is 
specified with the keywords IN for input or OUT for output. 
Record-oriented files are opened in the same way for input and 
output. If ALL is specified, the file can be accessed for both input and 
output without closing and reopening. 

In addition, the RECL= clause (record length) must be specified after 
OUT when creating record-oriented files to specify the length (number 
of characters) of the record being written. 

CLOSE FILE is used to close files the same way for record-oriented 
files as CLOSE is used for stream-oriented files. If the statement is 
not present, the system closes the file at the end of program 
execution. 
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Following is an example of an OPEN FILE statement for a record I/O 
file: 


0 15 0 0 P E N FIL E F L 2 , ' D 8 0 ' , M-, ' N E U , A C C 0 U N T S ' . 0 UI, R E C L :::: 12 8 


Specifies a record I/O file. 


Notice the period (.) in the file name NEW.ACCOUNTS. No blanks are 
permitted in the file name. 


If you are going to use the indexed access method, you must also 
open a file for the index. For example: 


0 2 1 0 0 P E N FI L, E F L 3 , ' D 8 0 ’ ,6, ' C U S10 H E R 8 ' , 0 U T , R E C L 

0 22 0 0 PEN FILE Fl.,3 . ' DO0 ' , 2 ' INDEX ' OUT , l< EY , !< P=1 



The file reference must be the same for the master and the index file; 
however, the files must be in different locations on the media (in this 
example, files 6 and 2). After statement 220 is executed, the 5110 
automatically creates an entry in the index file when a record is written 
to the master file. The KP= and KL= parameters describe the starting 
location and number of characters of the record in the master file to 
be used as a key in the index. 


Note: If the parameter SEQ is specified in the open statement for a 
data file, that file can be used as a data exchange file with other 
systems. However, this file should only be accessed sequentially. 
Direct access of the file might not access the desired record. 


96 






Writing to and Reading from Record I/O Files 


Creating a Record I/O File 

The WRITE FILE statement is the record-oriented counterpart to the 
PUT statement. For example, at the beginning of the school session, 
the only information available to you for each student is his name and 
address. You could write one WRITE FILE statement to enter the 
name and address for each student like this: 


0 0 5 0 U R I. I" E F I L E F L 1 , ' B U "f L E R , 


U , '? 6 B T R E E T , N E U Y 0 R K * 


You could also write one generalized WRITE FILE statement using two 
character variables for the name and address, like this: 

o o 5 o u r :i: t e f :i: l e f l i , n $, a $ 

This statement would enter the values of the two variables N$ and A$. 

This DIM statement should be included in the program to assign a 
length of 25 to N$ and 65 to A$: 

0010 DIM N$2S, A$<f>5 

Each record written by the WRITE FILE statement would be arranged 
in the file this way: 


name 


address 


unused 


1 


26 


90 128 


Note that this WRITE FILE statement writes 90 positions of the record. 
Unassigned record space is filled with blanks. Thus, record positions 
91 through 128 are blank. The WRITE FILE statement contains a 
USING clause with the statement number of the FORM statement, and 
the FORM statement describes how the entries are to be formatted 
into the record. The combination of WRITE FILE and FORM 
statements could look like this: 

0 0 5 0 W R IT E FIL E U 81N G 5 5 , FI... 1 , N Y , A $ 

0 O 5 S F 0 R H P 0 S1 , C P 0 S 2 6 , C 
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This FORM statement says that, beginning at position 1 in the record, 
the character variable N$ is to be written; beginning at position 26 of 
the record, the character variable A$ is to be written. 

| name I address I unused I 


1 26 91 150 


The following program shows how you could enter the names and 
addresses of the students into the file named CLASS. 


j n 1 o 

OPEN i 

“ILF FI ,1 . ’ TiRfi 

"i n 2 0 

DIM N^ 


J 0 3 0 

PRINT 

’ ENTER NAME’ 

0 0 4 0 

INPUT 

m 

0 0 5 0 

IF N-Eli: 

■■ ' LAST 1 GOTO 

0 0 6 0 

PRINT 

’ENTER ADDRE 

0 0 7 0 

INPUT 

AT 

0 0 R l"i 

WEI TEI 

“ILF” USING 90 

0 0 9 0 

FORM 


si i n o 

SOTO • 

A ;n 

o :i. i o 

CLOSE 

FILE ELI 


OUT, RECL : ”128,SEQ 


The program is constructed to recognize the word LAST as the end of 
input; therefore, the last input item should be coded 'LAST'. Your 
input could look like this: 


N.Y,, 10023 1 

MEW YORK, N , ,1, , 07094’ 


’ BUTLER,J,S, ’ 

’323 W, 76 STREET, 
’COOK, A,B. 1 
’ 30 62 STREET, WEST 


SMI TM, 

C , A , 1 


228 E . 

55 STREE1 

', N.Y, , :l. 0 0 2 

YOUNG, 

W , ’ 


3230 16 

5 STREET, 

FLUSHING, 


11350 ’ 


After the records are entered, the first record in CLASS would look 
like this: 


BUTLER,J.S. 


323 W. 76 STREET, N.Y. 10023 
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After the file has been created, if you decide to add more records, say 
for a new student who registers late, the WRITE FILE statement can 
be used to enter additional records. No RESET statement is necessary 
as with stream-oriented files; the WRITE FILE statement automatically 
positions a file at its end. Note that additional records would not be 
sorted but would be entered in place at the end of the file. 


Now, assume an index file was also specified for the previous 
example: 


0015 OPEN FILE F 


, 1 3080 ' , 2 ,' INDEX ' , OUT , KEY , K P~: 


., !< L""2U 


Use the characters in 
positions 1 through 25 
as the key. 

When formatting the key field, you should exercise care in putting the 
key into the proper position in the file. For purposes of simplicity, 
these examples use the first 25 record positions for the key. The 
occasion may arise, however, when you might have a file with the key 
starting in a position other than 1. By careful use of POS , you can 
assure that the key will be properly located. Also, you can use the 
intrinsic function KPS (FLx), to find the position, relative to 1, of the 
start of an embedded key in the file referenced by FLx, and you can 
use the intrinsic function KLN (FLx) to find the length of the key. 

These functions are described in the 5110 BASIC Reference Manual. 


After the records are entered into CLASS, additional records can be 
added and will be stored in key-indexed order. 


Reading Records from a Record I/O File 

A record I/O file can be read sequentially, directly using a relative 
record number, directly by key index, or sequentially by key index. The 
method you use depends upon the requirements of your application. 
Following is a description of the four ways to read a record I/O file. 
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Sequentially 


The READ FILE statement is used to sequentially read a record I/O 
data file. For example: 

0010 OPEN FILE ELI,'D80','PAYROLL*,IN 


0 0 ? 0 R E A D FIL E U SIN G 1 0 0 .. F !., 1, A $ B -h.. C . D $ 
0100 FORM C10.C2 0,NC10,05 


0180 GOTO 90 

Notice that the file is first opened as an input file with FL1 as the file 
reference. The READ FILE statement uses the same file reference. 

The FORM statement (statement 100) specifies the format of the 
record. 

Each time the READ FILE statement is executed, the system reads the 
data in the next sequential record in the file. Thus, the records are 
read in the same sequence they were written to the file. 

It is not necessary to read the items in the same order in which they 
appear in the record. For example, the statement could be written: 

0 0 9 0 R E A B F' X i., E U 31N G 1 0 0 , F 1 0 , D $ , B $ A T 
0 1 0 0 FORM P0S31 , MCI 0 , P0S4-1 05 P0S11 , C2 0 . POS 

Nor is it necessary to read all the items in a record. If you were 
interested only in obtaining name information, you could use this 
READ FILE and FORM combination: 

0 0 9 0 R E A D F X L. E U 91N G 1 0 0 , F!., 1 .. A $ 

0100 FORM POS1,010 

This combination might be helpful when you wish to insert test marks 
for each student. You could read through the file sequentially, obtain 
each student's record, display his name on the screen for verification, 
and enter the corresponding mark. 
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The READ FILE statement, like the GET statement, can contain an EOF 
clause to transfer control when the end of the file is reached. In the 
program shown below, the READ FILE statement causes program 
control to branch to statement 100 at the end of the file, which is used 
to print a message. 

This program shows how you can read each student's record to insert 
a test mark. The program also introduces the REWRITE FILE 
statement; see Updating Records in Chapter 9, which is used to 
update an existing record, and shows how OPEN and CLOSE 
statements can be used with record-oriented files. 


3 0 2 

(3 DIM 2$25 


} 0 3 

(3 0PEN FILE 

fli, 1 m 

) 0 4- 

(3 RE AD FILE (. 

SING 41 

3 0 4- 

5 FORM P0S1, 

n 

3 () 5 

(3 PRINT 2$ 


3 (3 6 

(3 .!. N1"’ U i 0 


3 (3 7 

(3 R1::. U k .1. ! I::. P j. L 

E USINt 

) U i" 

i 0,8 

rUKr! !"UoJ. 1 

0 GOTO 40 


31 (3 

(3 PRINT ’ ENE 

OF FI! 


0 12 ( 


•Read name from the file. 


Opens the file for 
input and output. 

— Branch to statement 
100 when all the 
records are read. 

Update the record 
with the grade entered 
from the keyboard. 


STOP 


Record Layout 


Name 

Other j 

1 | Data 

Grade 

- 7 j 


25 


101 


103 


Statement 30 opens the file. ALL is a special keyword used with 
record-oriented files to indicate that both input and output operations 
can take place on the file. ALL is required if any rewriting operations 
are to take place. 

Statements 40 and 45 obtain the name information from the file. 
Statement 50 displays the name, allowing you to verify it and enter the 
corresponding test mark in statement 60. Statement 70 is the 
REWRITE FILE statement, which enters one data item into the record 
just read, the numeric variable G. Statement 75 says that the variable 
is to be entered beginning at position 101 of the record, in the format 
PIC(ZZ#), three digits with leading zeros suppressed. The remaining 
statements cause the program to cycle through all the records and 
close the file after the last record is handled. 
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Directly Using Relative Record Number 


To retrieve records directly by relative record number, specify the 
REC= clause in the READ FILE statement. If, for example, you want to 
access the Nth record, specify: 

70READ FILE USING 75, FL1, REC=N, C$, A$ 

The following example shows this method of record retrieval: 


0 010 

DIM D*20 


0 020 

OPEN FILE FL1,'D80' 

,2,'MASTER',IN 

0 04-0 

PRINT 'INPUT REG* 


0 050 

INPUT K 


0 051 

IF K=Q GOTO 90 


0 060 

READFILE USING 70,F 

L1,REC=K,X,D$ 

0 070 

FORM NC1Q,C2Q 


0 080 

PRINT X,D$ 


0 085 

GOTO 4-0 


0 090 

STOP 



In this example, file number 2 (referenced as FL1) on diskette drive 1 
is opened for input. Statement 40 requests keyboard input, which is 
assigned to variable K in statement 50. Statement 51 tests for the end 
of the program. In statement 60, a record is read from the MASTER 
file and data from the record is placed in variables X and D$. 
Statement 70 specifies the format for the data being read. The data is 
displayed (statement 80), after which the program branches back to 
request keyboard input again. 


Directly Using an Index 


If an index file was created, records can be read from the master file 
using an index. In this case, both the master file and the index file 
must be opened: 

0010 0PEN FILE FL2, ' D8 0 ' ,2, *GRACEMN 
0 0 2 0 0 P E N F11... E F I.., 2 , * D 8 0 * . 3 , * IN D E X ' , X N , K E Y 

t 

Specifies direct 
access by key index. 







If you wanted Smith's record, you would specify his name in the KEY 
clause in the READ FILE statement: 

Direct access using a key. 


The 5110 will search for the record whose key matches in the index 
file, then will read the values from the master file record into the 
variables F$, and G$. 

The following example shows this method of record retrieval. 

0 0 :i. 0 
0 0 2 0 
0 0 3 0 
0 Q i-j. 0 

0 0 5 0 
0 0 6 0 
0 0 7 0 
0 0 8 0 
0 0 85 
0 0 9 0 


JJ j. i v i D 2 0 , K ijj 10 

OPEN FILE ELI, ' SYS ‘ , 2., 1 MASTER 1 , IN 
U P E N j- .i. L, L:. I-I , 1 $ Y S ‘ 1 j ‘ IN D E X 1 .< IN , K E Y 
P EIN T ’ IN P U T l< E Y ‘ 

INPUT l<$ 

R E A D F IL E U SIN G 7 0 F LI , K E Y ~ i< , X , D $ 

0 R M N C l 0 C 2 0 
PRINT X,DT 
(0 0 T 0 4 0 


In this example, the specific record in file number 2 (referenced as 
FL1) is selected by the key value you enter in statement 50. If, 
however, the computer cannot find the key, it indicates an error unless 
you instruct it to take alternative action. For example, if you enter the 
key incorrectly (say you spelled the name SMIHT), the match would 
not be found. To protect program execution, include the NOKEY 
clause on the READ FILE statement: 


The NOKEY clause tells the computer that if the matching key cannot 
be found, the program should branch to statement number 200. The 
NOKEY clause for indexed files is similar to the EOF clause for 
sequentially accessed files; it permits you to retain control of program 
execution if a particular condition arises. 
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Sequentially by Key Index 


You can read records sequentially by key using the index by opening 
the index file and master file and specifying the READ FILE statement 
without the KEY parameter. 

When an indexed file is created, you must open both the data file that 
contains your records and the index file created by the system. 

If you omit the KEY= parameter, the system accesses the record with 
the next higher key than the last record accessed. This is called 
sequential access by key index. 

You can also combine the direct access by key and sequential access 
by key by specifying a KEY= parameter on the first access only. This 
gives you the records in ascending sequence beginning with the key 
specified in the KEY= parameter. 

If you specify a key in a KEY= or KEY> parameter that is longer than 
the key in the key index file, the specified key is truncated to the 
length of the key in the index file. If you specify a key that is shorter 
than the key in the index file, only the characters you specifed will be 
used in the search. If the key field is made up of several parts, for 
example, then you could access the first record on part of the key as 
shown: 


Division Department Employee Number 

r. " v /• . ■' ■ " . 

I i i I i i i i _i_I_i_I-J-1-1-1 

Key Field 


0010 DIM K$3,A$3 
0080 K$= '003' 

0090 READ FILE FL1, KEY=K$,A$,... 
0100 IF A$=K$ THEN 1000 


0200 READ FILE FL1,A$,... 
0210 GOTO 100 


1000 


The program would access the first record with division equal to 003 and then 
access all records with division 003 in sequence by key, assuming the master 
file is in ascending sequence by key. 



Updating Records in a Record I/O File 

Part or all of a record in a record I/O file can be updated using the 
REWRITE FILE statement. When updating a record I/O file, the OPEN 
statement for that file must specify the ALL parameter. For example: 

0020 OPEN FILE FL2, 'D80', 3, 'MASTER', ALL 

The following sample program, which adds telephone numbers to 
records in an existing name and address file, shows how you can use 
the REWRITE FILE statement to update a record I/O file: 


0010 REM 
0020 REM 

U 0 5 0 JU .1. M N $ 2 b .. A :l> 6 b , i $ 12 
0 0 M- 0 0 P E N EIL E F I.., 2 , 1 D 8 0 ' , 3 
0 0 b 0 R E A D FIL, E U 81N G 6 0 !“ i.., 2 
0 0 60 FORM (025, C65 
0 0 70 PRINT N$ 

0 0 8 0 IN P U T i il> 

0 0 9 0 R E U RI "I" E FIL E U SIN G 1 0 0 
0 ;i, 0 0 J’“ ij R M i :: ‘ 0 8 91 , C 12 
0110 GOTO 50 
0 12 0 P R I N T ' E N D 0 i :; ' J (!) B ' 
0130 STOP 


M A J. L. . L. J. S ! ‘ , A i..> I... 
N $ , A $ , E (.1 F 1 2 0 


When the file was originally created, each record contained space 
available for the telephone number and other data. After a record is 
read (statement 50), the name is displayed (statement 70) and the 
telephone number can be entered (statement 80). Once the telephone 
number is entered, the record in the file is updated in positions 91 
through 103 (statements 90 and 100) and the next sequential record is 
read. This process continues until the last record in the file is 
processed. After the last record is processed, an end of file (EOF) 
condition occurs and the program branches to statement 120. 
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If there is an index for the master file, you can access and update 
individual records without processing the file sequentially. For 
example, you could use the following program to update the telephone 
numbers of specific customers in an already existing name and 
address file: 


0 0; 

.0 

DIM N$25 

, A$65 

, T$ 12 

n n •; 

o 

OPEN FIL 

E FL2 

. ’ T‘l Pi i i 

111'!. 

0 o ! 

>0 
i- 0 

OPEN FIL 
INPUT l<$ 

E FL2 

, ‘ D80 

0 0! 
n o ■: 

■.i l.i 

> 0 

.1. !■• K $ 1 
INPUT T$ 

1 U i.l 1 

.1 .12 i.l 

i.l l.i 

0 

REURITEF 

ILE U 

SING 

0 0 f- 

5 0 

FORM POS 

9 :i., c :i. 

2 

0 0 

0 

GOTO 0 

DDTMT * J*.. 


!..! ii" n 

U J. 

0 1 
o :i. : 

1.0 

3 0 

0 <j j 0 i.j. o 

STOP 

U rlM ! 






When this program is run, statements 40 and 60 request the 
customer's name and new telephone number. Then, if the name is 
found in the index file (KEY=K$), the master file is updated with the 
phone number (T$). If a name match is not found, the message NO 
MATCH FOUND is displayed (NOKEY=100), and the program 
requests the next name and telephone number. If a ' ' is entered as 
the name, the program branches to statement 120 and stops. 

If the KEY clause (KEY=) is used in the REWRITE FILE statement, no 
READ FILE statement is required to retrieve the record first. If the KEY 
clause is specified, the record matching that key is brought in from the 
file; thus, the REWRITE FILE statement with a KEY clause retrieves as 
well as rewrites. 

The REWRITE FILE statement can write over existing data or unused 
portions of a record, but must not change the contents of the field 
containing the key information. Fields not written over remain 
unchanged. 












As another example of REWRITE FILE, assume that during the school 
term you give the students an extra credit project; their final grade will 
be raised by five to ten points depending on the quality of their work. 
Before the end of the term, you add in the extra credit for those 
students who handed in the project. The short program below 
illustrates how the REWRITE FILE statement can be useful in updating 
the records. 


o 

) 9 0 I 

UH N 

&25 



0 

1. 0 0 1 

> R.TNT 

1 EN 

TE R 

S Tim FT 

0 

uo : 

:nput 

N*, 

E 


0 

i. 20 : 

:f m 

= ' LA 

ST ‘ 

oo i o :i 

o 

1.30 I 

l E U E 1 

FEE I 

l.,E i 

ISINO :i 

0 

o 

1.35 ! : 
I.EO i 

‘OEM 

•5010 

:> os:l. 
!. 0 0 

•-I- 0 1 

>:i;c < Z#) 

o 

0 

o 

1.50 i 
1.6 0 ( 
1.7 0 f 

:, r:i:nt 

50 TO 
> TOP 

’ NO 

I (5 0 

i'i A " 

"OH EOL 


N A M E A N D E X T R A C R E DIT M A E !< 

2 K1::' YN i|i-E .. N (!) K E Y 15 0 

}R ‘ , N$ 


Statement 100 prompts you for input information. Statement 110 
accepts the student name in N$ and the mark in E. Statement 120 
tests whether the end of input has been reached; assume the last 
input data item should have the word LAST as the student's name. 
Statement 130 enters the mark recorded in E into the file after the key 
has been matched with the name in N$. Statement 135 formats the 
mark into positions 140 and 141. 


More Information About Processing Record I/O Files 


Deleting Records 

Records in an indexed file can be made unavailable with the DELETE 
FILE statement specifying the key of the record to be deleted. For 
example: 

0 0 9 0 0 E L E T E FIL E F L 2 , K E Y ~ N $ , N 0 K E Y 13 0 

This statement would delete (by modifying the index file) the record 
whose key matched the character value in N$, or would branch to 
statement 130 if the key could not be matched. The actual record is 
not removed. The record key in the index file is flagged, making the 
record inaccessible by key. 
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Repositioning Files 


The RESET statement can reposition a file to its beginning. If RESET 
contains a KEY clause, the file is repositioned to the particular record 
associated with that key. If the RESET statement contains a REC= 
clause, the file is repositioned to the record specified by the REC= 
clause. 


Error Clauses on the EXIT Statement 

For record I/O files, the EXIT statement can specify these clauses in 

addition to the other clauses available: 

• NOKEY, to transfer control if no key satisfying a KEY clause can be 
found. 

• NOREC, to transfer control if the relative record number specified by 
the REC= clause cannot be found. 

• DUPKEY, to transfer control if a key specified for a new record 
already exists in a file. 

An EXIT statement specifying all error handling clauses could look like 

this: 


When using the EXIT statement, remember to include an EXIT clause 
on each appropriate input/output statement. For example, to refer to 
the EXIT statement above, the DELETE FILE statement previously 
illustrated could be written: 

0 0 9 0 D EE T E EIL E F L 2 , K E YN $ , E XIT 18 0 


End of File Condition 

It is important to allocate sufficient file space for an indexed data file 
and the corresponding index file. If an EOF (end of file) condition 
occurs, the data file and the key file can contain an unequal number of 
records. Recovery procedures will be necessary to replace the missing 
records. See the IBM 5110 Customer Support Functions Reference 
Manual for more information about recovery procedures. 



The FORM Statement-Differences Between Print and Record I/O 

The FORM statement used with record-oriented files is similar to that 
used with PRINT USING in the following ways: 

• Both contain the C character specification. 

• Both contain the replication factor (see the IBM 5110 BASIC 
Reference Manual.) 

• Both contain the PIC numeric specification, with the same digit 
specifiers and insertion characters. 

• Both contain the format control specifications X and POS. 

• Both contain character constants (see the IBM 5110 BASIC 
Reference Manual.) 

The FORM statements used are different in the following ways: 

• With record-oriented files, the FORM statement does not contain 
the SKIP format control, because there is no need for a skip 
operation. 

• With record-oriented files, numeric data can be formatted using 
other specification codes besides PIC. Additional specification 
codes are: 

NC 

PD 

S 

L 

B 

B, NC, and PD are used to store and retrieve numeric data in special 
internal formats. Except for one use of NC, they are not further 
discussed here; additional material on these codes can be found in the 
BASIC Reference Manual under 'FORM Statement.' 
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The NC Specification 


The one use of NC applicable to this discussion is in its relationship to 
PIC. PIC can be used only in output operations; thus, it can appear in 
FORM statements related to WRITE FILE and REWRITE FILE 
statements, but not in those related to READ FILE or REREAD FILE 
statements. To read data that was written using PIC, NC is used, 
specifying the number of positions in the record to be read. For 
example, 

NC4 

would read four positions of a number. 

If a number were written using this PIC specification: 

PIC(###) or PIC(ZZ#) 

the NC specification to retrieve it would be: 

NC3 

To retrieve only the first two of these digits, you would specify NC2. 

Earlier, this FORM statement was used to enter the two-digit numeric 
variable E into the file called GRADE; 

0 13 5 F 0 R H P 0 S 1 4 0 P IC i Z ft > 

To retrieve that value, you could use this FORM statement: 

0 0 3 5 F (!) R H P 0 S14 0 N C 2 

NC can also specify the number of decimal digits in a number, in the 
following manner: 

NC5.2 
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This specification says that five positions are to be read, and a decimal 
point is to appear before the two rightmost digits. That is, the five 
positions could look like this: 

12.34 would be read as 12.34 

1.234 would be read as 12.34 

11234 would be read as 112.34 

If an item were written using this PIC specification, 

PIC<####.##) 


The NC specification to retrieve it would be: 

NC7.2 or NC7 

The first number specified in NC is the field width, that is, the total 
number of characters to be read, including digits, decimal points, 
commas, dollar signs, and so on. The second number is the number 
of decimal digits. The following are examples of how PIC and NC can 
be used in combination: 

If PIC were specified: NC would be specified: 


PIC(###.##) 

NC6.2 

or 

NC6 

PIC(ZZZ.##) 

NC6.2 

or 

NC6 

PIC($$,$$$.##) 

NC9.2 

or 

NC9 

PIC(ZZBZZBZZ) 

NC8 

or 

NC8.0 
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The S and L Specifications 


The specification S indicates that an item in a record is in short-form 
precision. A number in short-form precision takes up four positions in 
a record. If S is specified for an input operation, the value in the 
record is moved to the variable specified in the READ FILE or REREAD 
FILE statement and extended to long-form. If S is specified for an 
output operation, a short-form value is written from the variable 
specified in the WRITE FILE or REWRITE FILE statement into the 
record. 

The specification L indicates long-form precision and is the long-form 
counterpart to the S specification. A number in long-form precision 
takes up eight positions in a record. 


0 02 0 A-1234-5678 
0 0 3 0 B :::: 1.2 3 M- 5 6 7 8 9 0 12 34- 5 E:!. 5 
0 0 4- 0 0 :::: 1 .2 3 4- 5 6 7 8 9 0 1 2 3 4- 5 E15 
0 0 5 0 W RIT E FIL E U 81N G 6 0 , F L1 , A , B , C 

0 0 6 0 i :: ' 0 R M i :: ’ 0 S ;i. , 8 , ! :> 0 8 5 , L P 0 813 , N C16 

0070 CLOSE FILE FU. 

0 0 8 0 0 i :: ' E N i :: ' 1 L E i :: ' L. 1, * 8 Y 3 ' . 15 , ‘ 8 H 0 R "f 1 . IN 

0 0 9 0 E E A D FIL E U 81N G 6 0 , i :; ' L1, A1 .. B1C1 

0 1 0 0 P RIN T i :: ', A1 , B1, C1 






1,234-56* 


The data record produced by the preceding program is printed below. 
Lines 010 and 020 write an item in short form in POS 10. Lines 020 
and 030 read the same item into variable B. The program consists of 
four positions of data in short precision from variable 'A', eight 
positions of data in long precision from variable B', and 16 positions 
of numeric data from variable 'C'. 


0 i) o 1 • F t / ( F I... MU U “ :l. 2 3 4- 




234-50 




A 


B 


C 







For an input operation, the value in the record is moved to the variable 
specified in the READ FILE or REREAD FILE statement. For an output 
operation, a long-form value is written into the record from the 
variable specified in the WRITE FILE or REWRITE FILE statement. 

j 

After all the marks for five tests and the extra credit for the project 
have been entered into the file GRADE, the first record in the file could 
look like this: 


BUTLER, J.S. 


323W. 76 STREET, N.Y.,10023 


#92#84100#80#7 


7 


1 


26 


101 


140 150 


If you wanted to print the final mark and the honors status, you could 
use this program: 


0 0 :i, 0 

d :t: m g 

(5) , mi 

, NT25 


n n ? fi 

PRINT 

USING 

2 5 . P' L P ' FIN AH A R i< 

, ' H 0 N 0 R 8 ’ 

0 025 

FORM 

P086 , G , 

PO835 , C , POS50 C , SK I 

p 

0 0 5 0 

OPEN 

FILE FL 

2 ' D80 ’ 2 ’ GRADE ' A 

i L. 

0 0 5 0 

READ F 

ILE US 1 

NU 55 , !•• j..,2 NT , MA ! G . 1::. 

.EOF no 

0 0 55 

FORM 

P0SI ; C , 

P0S1. 01,5-X-N03 POSIM-O 

j\j 1"' V 

f) 0 6 0 

A8 U i'i 

( fi ) / 5 E 



0 0 A 5 

IF A< 

1 fi 0 GOT 

0 7 0 


0 067 

A"" 1 0 0 




0 0 7 0 


* 



0 0 71 

IF A> 

90 GOTO 

8 0 


0 0 72 

' 

' 



0 0 8 0 

PRINT 

US ING 

85 , FLP , NT , A m 


0 0 85 

FORM 

P0S6 . C , 

PUS65 PJ.U < Z.Z# . =4 ) , PC. 

)S50 , 0 , SKI 

0 0 9 0 

REWRI 

TEFILE 

USING 95 FL2 , A , MT 


0 0 9 5 

FORM 

POS130 , 

P10 ( ZZZ , Z > POS135 , L 


n i o fi 

GO TO 

5 0 



0 :i. :l. o 

STOP 





Statement 10 defines an arithmetic array, G, with five members, a 
character variable, M$, with one character, and a character variable, 
N$, with 25 characters. The array G is to hold the five marks for each 
student, M$ is to hold the honors character, either a + or a blank, and 
N$ is the name field. 
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Statements 20 and 25 format a printed heading. Statement 30 opens 
the file for input, output, and updating operations. 

Statement 50 reads the file according to the format shown in 
statement 55. Remember that although GRADE is a key-sequenced 
file, its records can be read in sequential order if the KEY clause is not 
specified. From statement 55 we can determine that the items being 
retrieved are the name, placed into N$, five sequences of three digits 
(the five marks beginning ip position 101), placed into the array G, and 
a two-digit number for extra credit, placed into E. 

Statement 60 sums the five marks, divides the sum by 5 to find the 
average, then adds in the extra credit recorded in E, and puts the 
resulting value into A. 

Statements 65 through 72 reduce any mark that exceeds 100 and 
analyze the value of A. If the value equals or exceeds 90, a plus sign, 
indicating honor student, is placed into M$. If the value of A is less 
than 90, M$ is assigned a blank. 

Statements 80 and 85 print the student's name (N$), the final mark 
(A), and the honors code (M$). 

Statements 90 and 95 enter the final mark and the honors code into 
the record, beginning in positions 130 and 135, respectively. 

Statement 100 branches back to statement 50, and the next record is 
read. After all records are read, the program ends. 

Output from this program could be the following: 

Print 

Position 6 35 50 


COOK A , B = 
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SUMMARIZING RECORD-ORIENTED STATEMENTS 


The OPEN FILE statement explicitly opens a record-oriented file. If IN 
is specified, the file is opened for input; if OUT is specified, it is 
opened for output; if ALL is specified, it is opened for both operations. 
If the KEY clause is specified; an index file is associated with a master 
file. 

The WRITE FILE statement writes a record. In a directly or 
sequentially accessed file, each record is stored in the order in which 
it is entered. In an indexed file, each record is stored in the order in 
which it is entered, and the record key is stored along with the relative 
record number in the index file. When you are retrieving or writing 
records by key, performance is improved if the index file is sorted into 
order by key. 

The READ FILE statement reads a record. In a sequentially or directly 
accessed file, each record is read sequentially, or directly by relative 
record number when the REC= clause is specified. In an indexed file, 
each record is read sequentially if the associated index file is not open. 
If the index file is open and no KEY clause is specified, the records are 
read sequentially by key. If KEY is specified, the record having a 
matching key is read. 

The REREAD FILE statement makes the last record previously read 
available again, regardless of whether the record was read sequentially 
or by key. 

The REWRITE FILE statement alters an existing record, provided that 
the file was opened with the OPEN FILE statement specifying ALL. In 
a file accessed sequentially, the last record is read and rewritten. In 
an indexed file accessed sequentially by key, the last record read is 
read and rewritten if no KEY clause is specified in the statement. If 
KEY is specified, the record having a matching key is read and then 
rewritten. If the REC= clause is specified, the record with a matching 
number is read and rewritten. 
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The RESET FILE statement repositions a file to its beginning. In a file 
accessed sequentially, if a KEY or REO clause is specified, the file will 
be repositioned to the particular record associated with that key, or 
record number. 

The DELETE FILE statement deletes a record from an indexed file. The 
KEY clause is required in order to identify the record being deleted. 

The EXIT statement specifies the statement number to which control 
should be given if a particular input/output error occurs. The error key 
keywords that can be written in the statement are EOF, IOERR, CONV, 
NOKEY, NOREC, and DUPKEY. 

The CLOSE FILE statement explicitly closes a record-oriented file. 

The FORM statement specifies the format of fields in record-oriented 
files. 



Permitted READ/REREAD, WRITE/REWRITE Statements 


The following chart list the various OPEN statements which can be 
used with the READ, REREAD, WRITE, and REWRITE statements. 
Each OPEN statement is listed with the function that it performs. In 
addition, several notes are provided for added clarity. 


How File(s) Opened 

READ 

WRITE 

Notes 

OPEN FILE FL1. . .OUT, RECL= 

OPEN FILE FL1. . .OUT, KEY, KP=, KL= 


WRITE 

Creates a master file 
and an index file. The 
time it takes to create 

the files will be 

reduced if the files are 
built in key sequence. 

OPEN FILE FL1. . .IN 

OPEN FILE FL1. . .IN, KEY 

READ 

READ KEY= 

REREAD 



OPEN FILE FL1. . .ALL 

OPEN FILE FL1. . .ALL, KEY 

READ 

READ KEY= 

REREAD 

WRITE 

REWRITE 

REWRITE 

KEY= 

Successive READS 
(without KEY=) will 
access the master file 
in order by ascending 
key. WRITE will add a 
new master and index 

record. 

OPEN FILE FL1. . .OUT, RECL= 


WRITE 

Creates a new file 
(previous data 
destroyed). 

OPEN FILE FL1. . .OUT 


WRITE 

Adds to an existing 
file. 

OPEN FILE FL1. . .IN 

READ 

READ REC= 

REREAD 


OPEN FILE FL1. . .ALL 

READ 

READ REC= 
REREAD 

WRITE 

REWRITE 

REWRITE 

KEY= 
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Chapter 12. Control of Your 5110 


This chapter discusses the following topics concerning controlling your 
5110: 

• Using the display screen for input and output 

• Using procedure files to replace keyboard input 

• Using the system control functions (FILE FLS) 

• Using the UTIL command 


USING THE DISPLAY SCREEN FOR INPUT AND OUTPUT 

You can use the WRITE FILE and READ FILE statements to write and 
read data from anywhere on the top 14 lines of the display screen. 
This allows you to use different screen formatting and data entry 
techniques. 
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When used for input and output, the display screen is treated as a 
record I/O file, similar to a record I/O file on tape or diskette. You 
must open the display screen for input/output using device 002, for 
example: 


-Specifies read and 

write operations 


Input/output to the display screen 


The character positions on the display screen are numbered as 
follows: 



For example, character 
position 130 is the 
second character position 
on line 13. 
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The following is a sample program that writes data to and reads data 
from the display screen: 


0010 0PEN FILE FL1, * 002 1 ,ALL 

0 020 URITEFILE USING 30 , FL.1., ‘ NAME ' , ' ADDR ’ , 'CITY* 

0 0 30 FORM P0S84, C, PGS148, C , P0S212, C , P0S91 
0 0 4 0 R E A D FIL E U SIN G 5 0 , F L1, N $ 

0 050 FORM P0891 , C:l.8 
00 60 REU RITEFILE USING 70,FL 1 ,N$ 

0 0 7 0 F 0 R M P0891, C, P 0 815 5 
0080 READFILE USING 90,FL1,A* 

0 090 FORM 808:1.55,018 
0 10 0 R E U RIT E FIL E U 81N G 11.0 , F L1, A $ 

0110 FORM P08155,C,P08219 
0.1.20 READFILE USING 1.30 , FL1, C* 

01.30 FORM P0821.9,01.8 

011+ 0 R E U RIT E FIL E U 81N G 1.5 0 , F L1., N$, A $, 0 $ 

0 1 5 0 F O R M P O85 77 , ‘ Y O U E N T E R E D 1 , P O8641., C , X 2,0 , X 2 , O 

When this program is run, statements 020 and 030 write 'NAME', 

'ADDR', and 'CITY' starting at positions 84, 212, and 148 on the 
display screen. The cursor is then placed at position 91 as specified in 
statement 030 (POS 91), and the program waits for input from the 
keyboard. The display screen looks like this: 




NAME 
ADD R 
01T Y 



Flashing Cursor at 
position 91. 


RUN 


V. 


0 0 M- 0 0 9 
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Now, after you enter responses to 'NAME' and 'ADDR' from the 
keyboard, the display screen looks like this: 


NAME JUANITA GIST 
ADDR 123 SOMEWHERE AVE 
CITY 


RUN 

V 0120 219 

—-—- i 


Statements 040 and 050 read the response to 'NAME' from the screen 
in position 91. The statements 060 and 070 position the cursor at 
position 155 for the subsequent reading of the response to 'ADDR'. 



Note: The REWRITE FILE and the FORM statements in lines 060 and 
070 positions the cursor at position 155 for the next READ FILE. To 
do this, you must force something to write, in this case the variable 
N$ is written. 
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Notes about full screen management: 

• You can position the cursor on the display screen by ending the 
FORM statement used by a WRITE or REWRITE statement with a 
POSn or an Xn specification. 

• Data to be displayed by a WRITE FILE or REWRITE FILE can be 
located in: 

- The statement itself (line 20 'NAME', 'ADDR', 'CITY'). 

- Constants used by the statement (line 140, N$, A$, C$). 

- The constants in the FORM statement (line 150 'YOU ENTERED'). 

• The CMD key and the 9 key on the numeric keyboard will position 
the cursor at the beginning of the next line providing the 9 key is 
not otherwise defined. 


USING PROCEDURE FILES 

A procedure file allows you to set up and execute a series of 
programs without the need for operator intervention. The procedure 
file consists of a series of BASIC statements, commands, or data 
created using the LOADO,DATA command or a BASIC program. After 
you enter LOADO,DATA, the system displays a line number followed 
by a colon. You may then enter statements, commands, or data just 
as you would for a standard data file. Lines in a procedure file have a 
maximum length of 64 characters. After you have entered the lines in 
your procedure file, you can use the SAVE command to save the file 
on tape or diskette. Following is a sample procedure file: 

L, 0 A D ( 

0 0 1 0 
0 0 2 0 
0 0 3 0 
0 0 !•!• 0 
0 0 5 0 
0 0 6 0 
0 0 7 0 
0 0 8 0 
0 0 9 0 


DA f A 
LOAD ! 


LOAD 

RUN 

LOAD 

RUN 


• i*.i IJ 

.1. j i... »\ I 


P A Y R 0 L L D 1S l< E "f T E E N T E R 0 0 10 0 0 N "f IN U E 


.! M .U 
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After these lines are entered, the file can be saved with this SAVE 
command: 


8 A V E 4-' P R 0 C ‘ .• R E C L :::: 6 4- .• D 8 0 

This command saves the file (named PROC) with a record length of 64 
characters in file 4 on diskette drive 1. 

The procedure file is accessed when you enter a PROC command. A 
PROC command instructs the system to begin using the procedure file 
in the indicated file, as shown below: 

PROC 4-. D80 


The system then loads file 4 and begins executing the lines in the file, 
one record at a time. In the example above, after the program in file 9 
has been run, the procedure file executes the ALERT command, which 
sounds an audible alarm and causes the display screen to flash. The 
operator must press the ATTN key to stop the flashing message 
INSERT PAYROLL DISKETTE-ENTER GO TO CONTINUE. If you 
replace the diskette containing the PROC command, do not use the 
same file number (4 in this example) while the PROC command is 
active. If the RUN INP command was used, data may not be entered 
from the keyboard. Therefore, for each INPUT statement of a program 
being executed, there must be one entry available via the procedure 
file. After the operator enters GO, the procedure file loads file 11. 
Other commands valid in a procedure file are discussed in the IBM 
5110 BASIC Reference Manual. 



USING THE SYSTEM CONTROL FUNCTIONS 


A unique 35-byte 5110 internal storage area is provided to allow you 
to dynamically control the operation of your system. This storage area 
is called file FLS (system file). Using file FLS you can get information 
about the system, such as: total work area available, work area 
available for variables and buffer storage, number of lines printed on 
the printer, and the return code set by the last STOP or END 
statement. File FLS also allows you to set or use system functions, 
such as turning the display screen on and off, sounding the audible 
alarm, selecting a character set, entering lowercase alphabetic 
characters, turning trace on and off, rounding precision, file FLx, and 
number of print lines per inch. You use the READ FILE FLS statement 
to obtain the information about the system, and the WRITE FILE FLS 
statement to set or use the system functions. (File FLS is always 
open, therefore, an OPEN statement is not required before file FLS is 
used. 


READ FILE FLS Statement 

You can obtain the following list of information about the system 
using the READ FILE FLS statement: 


Information 

Total work area available 
Work area available for variables 
and buffer storage 
Number of lines printed 
Reserved 

Return code set by last STOP or 

END statement 

Unused 


File FLS Position 

I- 5 
6-10 

II- 15 
16-18 
19-21 

22-35 


For example, the statements: 

0 3 2 0 R E A D F11., E U S1N G 3 3 0 , F8 , A , B , C , D 
0 3 3 0 l :: ' 0 R M N C 5 , N C 5 , N C 5 , P 0 S19 , N C 2 

place the total work area available in variable A, the work area 
available for variables and buffer storage in variable B, and so on. 


Note: The number of lines printed is the count of the print head 
movements rather than the form's movements, because a 00 line 
spacing may be specified. 
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WRITE FILE FLS Statement 


You can set or use certain system functions by using the WRITE FILE 
FLS statement to place the appropriate code in file FLS, as follows: 


System Function 

File FLS 

Position 

Code 

Turn the display screen off 

1 

F 

Turn the display screen on 

1 

N 

Turn the audible alarm on 

1 

S 

Turn the audible alarm off 

1 

Q 

Pulse the audible alarm 

1 

A 

Set keyboard input to lowercase 

2 

L 

character mode 

Set keyboard input to standard 

2 

U 

BASIC character mode 

Turn the display trace on 

3 

N 

Turn the display trace off 

3 

F 

Turn the printer trace on 

4 

N 

Turn the printer trace off 

4 

F 

Set rounding precision 

5-6 

0 to 1 

File FLx 

7-9 

FLO-9 

Set number of print lines per inch 

10-11 

8-99 

(2.54 centimeters) 

Comparison tolerance 

12-18 


For example, the statements: 

0280 WRITEF I LE US3 

' M 0 2 9 0 , F 

LS , 1 L ' 


0 2 9 0 F 0 R M P 0 S 2 , C 


place the character L in position 2 of file FLS. This causes the 5110 to 
be in lowercase character mode. That is, lowercase alphabetic 
characters are entered from the keyboard unless the shift key is used. 
The 5110 remains in lowercase character mode until the 5110 is 
changed back to standard BASIC character mode or the work area is 
cleared. 




Additional Use of File FLS 


You can use positions 22 through 35 of file FLS to store data. That is, 
data written to these positions using the WRITE FILE FLS statement 
can be read using the READ FILE FLS statement. Using these 
positions of file FLS gives you the unique capability to write data in 
numeric form and then read that data in character form, and vice 
versa. For example: 


i o :\ 

:nput n 

2 0 1, 

JRITEFIL 

3 0 1 :: 

GEM RGB 

4 0 I 

Q'M A $ B 

5 0 F 

IE ABF ILE 


0 1 6 0 F 0 R M P 0 S 2 2 , C 8 

The numeric input (N) is written to file FLS positions 22 through 30 
(statements 120 and 130); then the character equivalent of N is read 
from file FLS positions 22 through 30 (statements 150 and 160). 


Using the UTIL Command 

You can use the UTIL command to perform the following system 
control operations: 

• List the file directory 

• Rename a file 

• Change or display a diskette volume ID and owner ID 

• Drop a file 

• Write-protect a file 

• Transfer control to the Diskette Sort feature, if installed 

• Change the system default device 
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The sort program, if installed, is internal to your 5110. You can 
transfer control to the sort program by using the statement: 

UTIL SORT 

This program allows you to sort records in a data file according to 
specified fields within the records. See the IBM 5110 Customer 
Support Functions Reference Manual for a complete description of the 
sort program. 

Normally, the 5110 Model 1 default device is E80 (the built-in tape 
unit) and the 5110 Model 2 default device is D80 (diskette drive 1). 

You can use the UTIL command to change the system default device. 
For example: 

UTIL SYS DM-0 

changes the default device to diskette drive 2. 

See the IBM 5110 BASIC Reference Manual for a complete description 
of the UTIL command and functions. 



Chapter 13. Using Arrays 


An array is a simple way to keep together data items that are related. 
For example, if you want to keep the average temperature for each 
month of the year, you could construct an array having 12 data items. 
The DIM statement can be used to define an array: 

0 0.1.0 DIM T <:!. 2 > 

This statement defines an arithmetic array, T, containing 12 items, or 
members. The computer recognizes an item as an array by the 
appearance of parentheses. The parentheses are used to define the 
number of items in the array. 

Arrays can be arithmetic or character. For example: 

0 0 20 DIM T$:l.8CI.2) 

This statement defines a character array having 12 members. 

A DIM statement can specify the length of the members of a 
character array at the same time it is defining the array: 

0 020 DIM T$:i. 0(12) 

Here, each member of array T$ is assigned a length of 10; without the 
length specification, each member, like other character variables, 
would be assumed to be 18 characters long. All members of a 
character array have the same length. 
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NAMING ARRAYS 


Character arrays are named in exactly the same way as character 
variables; that is, the name must consist of a single alphabetic 
character (including the alphabet extenders) followed by the currency 
symbol(s). Thus, the name A$ can name either a character array or a 
character variable. Arithmetic arrays are named in almost the same 
way as arithmetic variables. An arithmetic array name may consist 
only of a single alphabetic character (including the alphabet extenders); 
you may recall that arithmetic variables can also be named with an 
alphabetic character followed by a digit. Thus, the name A can be 
used for either an arithmetic array or arithmetic variable, but the name 
A1 can be used only for an arithmetic variable. 


DEFINING ARRAYS 

Defining an array in a DIM statement is known as an explicit 
declaration. There is another way to define an array through implicit 
declaration; that is, by referring to a member of an array in a program 
statement without having defined it first in a DIM statement. When 
you refer to an array member without explicitly declaring it in the DIM 
statement, the computer will recognize that you are working with an 
array and will automatically allow space for 10 members. To refer to a 
particular member of an array, you specify it by its location in the 
array. For example, T(1) refers to the first member of the array named 
T, T(2) refers to the second member, T(3) refers to the third member, 
and so on. Each number giving the location of a particular member is 
called a subscript If the following statement appears in the program: 

0 0 i-j. 0 T < 9 >6 9 

only the ninth member of T would be assigned the value 69; all other 
members would remain unchanged. 

Remember that an array defined implicitly is assumed to have 10 
members. So in order for array T to contain 12 members, we must 
explicitly define it. If an array has very few members (for example, 
two or three), it would be wise to use a DIM statement, such as: 

0 0 ;!. 0 D ;i; M A < 2 > , B < 3 ) 

The DIM statement, in addition to defining the number of members in 
the array, also defines the number of dimensions in the array. 




So far, we have discussed only one-dimensional arrays. In BASIC, you 
can also have arrays of two dimensions. Assume that values have 
been assigned to array T, such that: 


T (.1.) 

i s 

3:1. 

T (2) 

i s 

M-3 

T (3) 

i s 

42 

T (4 > 

i s 

57 

T < 5) 

i s 

64 

T < 6) 

1 s 

73 

T<7> 

i s 

79 

T (8 > 

i s 

79 

T < 9) 

i s 

6 9 

T (10 ) 

i s 

58 

T (11) 

i s 

44 

T (12) 

i s 

39 


Let's assume that these values represent the average temperatures for 
12 months; T(1) represents January's average, T(2) February's, and so 
on. 

For various reasons, another programmer might want to consider the 
year as divided into four quarters of three months each; he could 
define his array (call it M) as a two-dimensional array, as follows: 

0 0 15 .0 X h M < 4, 3 > 

In this statement, array M is defined as a two-dimensional array 
containing 12 members (the product of 4 and 3), just like array T. The 
difference is that the members of M are distributed over two 
dimensions, whereas in T they are distributed over only one 
dimension. Conceptually, the two dimensions of M can be thought of 
as rows and columns-four rows and three columns. The first value 
would be identified as being in the first row and the first column, or as 
M(1,1); the second value would be in M(1,2), the first row, the second 
column; the third in M(1,3), the first row, third column. The fourth 
item is M(2,1), or the second row, the first column; the fifth item, 
M(2,2), would be in the second row, second column, and so on. 
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Assuming that the same temperatures assigned to array T are 
assigned to array M, notice the difference in the way each item is 
referred to: 


A v v a y T T e* m p e r a t u r e A r r a y H 


T < 1 > 

31 

M < :l., l) 


C o 

umn 


T (2 > 

43 

M(1,2) 

R o w 

1 

Am 

3 

T ( 3 > 

42 

M CL, 3) 

1 

31 

43 

42 

T (4) 

57 

M ( 2,1 > 

9 

57 

64 

73 

T < 5) 

64 

M<2,2) 

3 

79 

79 

69 

T < 6) 

73 

ii < 2,3 ) 

4 

58 

44 

39 

.... ( ? } 

79 

ii ( 3,1) 





T (8 > 

79 

M(3,2 > 





T < 9) 

69 

H (3,3 ) 





T (1 0 ) 

58 

M (4,1 > 





T (11. > 

44 

ii (4,2 > 





TCI. 2) 

39 

H (4, 3 ) 






Two subscripts are needed to refer to a particular member of array M; 
for example, M(3,1) refers to the temperature for July, the first month 
in the third quarter. 


Note the difference between a subscript and the array dimension 
specification. A subscript refers to a particular member of an array. It 
can be any valid arithmetic expression (for example, a numeric 
constant or an arithmetic variable). The dimension specification 
defines the number of members of an array. The dimension 
specification can appear only in a DIM statement and it must be 
indicated by unsigned integers only. An array name cannot appear in a 
DIM statement if the array has already been defined-either implicitly 
by usage or explicitly by definition in a previous DIM statement. 

You can implicitly define a two-dimensional array by using it in a 
program statement without defining it in a DIM statement first. You 
would do this by referring to a particular member, using two 
subscripts. For example, A(4,3) would refer to the item in the fourth 
row, the third column of array A. A two-dimensional array defined 
implicitly will be assigned the dimensions (10,10), or 100 members 
altogether. If the value of either dimension is to exceed 10, however, 
you must use a DIM statement to define the array as you would for a 
one-dimensional array that exceeds 10 members. Remember that DIM 
statements to define arrays must appear in the program before you 
refer to the array. 
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PLACING VALUES INTO ARRAYS 

Initially the system sets all arithmetic arrays to zero and all character 
arrays to blanks. Arrays can be given other values through 
assignment, READ, and INPUT statements, just like other variables. 

The assignment statement can assign values to individual array 
members or to all the members of the array. Here are some examples: 

0 3 0 (j A < 4 , 3 > :::: j. i } 

0 3 2 0 M A T A'' 1 3 ) 

0 3 3 0 P $ ( 4 ) = ‘ P HIL A D E L P HIA ' 

The first example assigns the value 10 to the member in the fourth 
row, fifth column of the two-dimensional arithmetic array A. In the 
second example, the keyword MAT identifies A as an array, and the 
value 15 is assigned to all the members of the array. (This is a special 
form of the assignment statement and is known as the array 
assignment statement.) In the third example, the value PHILADELPHIA 
is put into the fourth member of the one-dimensional character array 
P$. 

When specifying values by means of READ and INPUT statements, 
you must remember that every array member that is to receive a value 
must be represented in the statement, and a value must be supplied 
for each member specified. Let's look at these statements: 

0 010 DIM T<12) ,T $ 18<12) 

0 0 13 P R IN T 1 E N T E K 3 T E H P E R AIU R E 8 , T H E N T H R E E H 0 N "f H 8 ' 
0 0 2 0 IN PUT T (1) , T ( 2 ) .■ T < 3 > .. T$ (1) , T$ ( 2 ) .■ IT ( 3 ) 

The DIM statement defines the arithmetic array T and the character 
array T$, each with 12 members. The INPUT statement states that 
values will be supplied at execution time for the first three members of 
each array. Execution of the INPUT statement causes the computer to 
display the question mark {?). A valid response would be: 

31,43,42,JANUARY,FEBRUARY,MARCH 

The first three values are entered into T(1), T(2), and T(3), respectively. 

The next three values are entered into T$(1), T$(2), and T$(3), 
respectively. 

The following statement can be used to enter values for the arithmetic 
array A, consisting of three rows and four columns: 

ft 0 2 0 D 1 M A < 3 4 > 

0030 MAT INPUT A 
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When this statement is executed, the computer displays a question 
mark, and you can enter the three values for the first row: 

The system continues to display the question mark until you have 
entered values for all matrix positions. 

Another way of assigning input values to arrays is through use of a 
FOR/NEXT group in conjunction with the READ and DATA statements. 
For example, if you wanted a list of 15 numbers assigned to an array 
named B, you could write: 

0 0 :!. 0 DI r i B (1 ■) 

0 02 0 FOB I•••: 1 TO 15 
0030 READ 
U U M- 0 N1::. X ! 

0 05 0 DATA 



The subscript I is used to step through the values in the data table. 


REDIMENSIONING ARRAYS 

Once an array has been dimensioned by a DIM statement, it cannot be 
explicitly dimensioned again. But it can be redimensioned ; that is, the 
array can be given new dimensions. A one-dimensional array can be 
redimensioned into a two-dimensional array, or it can be 
redimensioned into a one-dimensional array with a different number of 
members. Similarly, a two-dimensional array can be redimensioned 
into a one-dimensional array or a two-dimensional array having a 
different number of members in either or both dimensions. The rule 
to remember when redimensioning an array is that the total number 
of members in the new array may not exceed the total number in the 
original array. For example, the array M(12,10) has 120 members, the 
product of 12 and 10. It can be redimensioned as long as the new 
array does not contain more than 120 members (it can contain fewer). 
Thus, M(12,10) may be correctly redimensioned to M(40,3), or M(100), 
but not to M{40,4). 

One way to redimension an array is to state its new dimensions right 
after the array name in the array assignment statements. For example, 
in the array C(5,5) to C(3,4), you could use the array assignment 
statement: 

0010 MAT C(3,4)=<0> 

The word MAT is used to indicate that operations are to be performed 
on the entire array, or matrix. This statement changes the array 
dimensions to (3,4) and assigns the value zero to each member of the 
newly dimensioned array. 



DIFFERENCE BETWEEN MAT AND LET 


It is important to note the distinction between the array assignment 
statement, identified by the word MAT, and the LET assignment 
statement. 


The following example shows a sequence of assignment statements 
and the output from each one. None of the statements are equivalent. 


0 010 
0 0 2 0 
0 0 3 0 
0 0 > 1 - 0 
0 0 5 0 


DIM 

LET 

MAT 

MAT 


C < 
C < 


3) 
1 > 



Array C is initialized 
Array C is initialized 



to 

to 

to 

to 



Statement 10 defines arithmetic array C as a 2x3 array and initializes 
each member to 0. Statement 20 assigns the value 1 to a member in 
the second row, first column of the array. Statement 30 assigns the 
value 5 to all members of the array. Statement 40 redimensions the 
2x3 array into a 3x2 array and assigns the value 8 to all members. 
Statement 50 does not refer to an array but to an arithmetic variable, 
C, and assigns the value 9 to it. BASIC allows you to use the same 
name to represent both an array and a simple variable in the same 
program. 

The array assignment statement can also assign the values of an array 
to another array, as long as both arrays have identical dimensions. 
Let's look at this example: 


0100 DIM 
<> 

<> 

O 

0150 MAT 

O 

o 

o 

0180 LET 
<> 

O 

o 

0200 MAT 


Y (' I-) , Z < i+) 

Y ™ <A*B> 

Y< 3) *15 

Z=Y 
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Statement 150 assigns the value of the expression A*B to all the 
members of the array Y. The expression must always be enclosed in 
parentheses. Statement 180 assigns the value 15 to the third member 
of Y. Note the difference between the LET statement and the MAT 
statement. Statement 200 assigns the values in array Y to array Z. If 
the only change made to array Y between statements 150 and 200 
was the assignment made in statement 180, array Y will contain the 
values A*B in members 1, 2, and 4 and the value 15 in member 3. 
Array Z will be assigned these values in the corresponding members. 

In order for the values of one array to be assigned to another, both 
arrays must have identical dimensions. For example, if Z had the 
dimension (5) or (2,2), it would have to be redimensioned to the 
dimensions of Y before it could receive Y's values. 


ARRAY OPERATIONS 

A number of different operations can be performed on arrays. 
Arithmetic arrays can be used in simple arithmetic operations, such as 
adding or subtracting the values of members in different arrays, and in 
true mathematical matrix operations such as matrix multiplication. 
Additionally, values in both arithmetic and character arrays can be 
indexed in ascending or descending order. Arrays used in arithmetic 
operations must have the same number of dimensions. Let's look at 
some of the operations available. 


Array Addition and Subtraction 

Example 1: 

0 01.0 DIM X(5),Y(5),Z(5) 

0020 MAT X~Y+Z 

In this example, each member of the array X is to be assigned the 
sum of the corresponding members of the arrays Y and Z. The values 
of Y(1) and Z(1) are added, and the sum is assigned to X(1); the values 
of Y(2) and Z(2) are added and assigned to X(2), and so on. 

Example 2: 

0030 DIM X<5),Y<5>,Z<5> 

0040 MAT X-Y-Z 

This example is like the first example, except that the array X is 
assigned the difference between the corresponding members of the 
arrays Y and Z. 



Scalar Multiplication 

Scalar multiplication is the process whereby each member of an array 
is multiplied by the same number. 

Example: 

0035 MM A< 10,5) ,B<14> 

0 040 MAT A(14)==<4)#B 

In statement 40, A is redimensioned to correspond to the dimensions 
of the array B. Then, the value in each member of B is multiplied by 4 
and the product is assigned to the corresponding member of A; B(1)*4 
is assigned to A(1), B(2)*4 to A(2), and so on. 


Indexing Function 

Indexing operations can be performed on character as well as on 
arithmetic arrays. Character arrays are indexed alphabetically, 
arithmetic arrays numerically. Arrays can be indexed in ascending or 
descending sequence by the AIDX and DIDX functions, respectively. 

Example: 

0 0:1.0 DIM A$:l.8<5) ,B<5) 

0020 DATA ' DAN ' , ' MEL * , ' GLEN ’ , 1 DAVE * , * BILL. * 

0040 MAT READ A$ 

0050 MAT PRINT FLP,A$ 

0 060 MAT B 83 AIDX(A$) 

0070 MAT PRINT FLP, B 

The printed output would be: 

DAN MEL GLEN DAVE BILL 



i.|. 


The numbers indicate the ascending character sequence of the names. 
For example, the 5 indicates that the fifth name (BILL) is the lowest 
character value; the 1 indicates that the first name (DAN) is the next 
highest, and so on. 
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The following statements could be added to print the indexed matrix: 


0080 FOR 1=1 TO F 
0 0 90 PRINT FLP . A$<B< I) ) 
0100 NEXT I 

The printed output would be: 


BILL 

DAN 

DAVE 

GLEN 

MEL 


Matrix Multiplication 

Matrix multiplication is the process whereby the matrix product of two 
arithmetic arrays is assigned to a third array. All three arrays involved 
in matrix multiplication must be two-dimensional. 

Example 1: 

0065 DIM X<2,2),Y<2,2>,Z<2,2) 

0070 MAT Z«X*Y 

If X contained fa bl 

L c dj 

the values of Z fj kl 

Ll mj 

j = a*e + b*g 

(sum of members in first row of X times members in first column of Y) 
k = a*f + b*h 

(sum of members in first row of X times members in second column of Y) 

I = c*e + d*g 

(sum of members in second row of X times members in first column of Y) 
m = c*f + d*h 

(sum of members in second row of X times members in second column of Y) 


and Y contained fe f 1 

[g hj 

, would be constructed as follows: 




All the arrays shown in example 1 are two-dimensional, square, and 
have the same number of members. Arrays used in matrix 
multiplication need not be square or have the same number of 
members, but must be two-dimensional and conformable. Look at 
this example: 

0 075 DIM A(2,4-) ,C<2,3) 

0080 MAT C=A*B 

Remember that the first subscript in a two-dimensional array indicates 
the number of rows, and the second subscript indicates the number of 
columns. (In the example above, A has two rows and four columns.) 
To be conformable for matrix multiplication, arrays must meet these 
requirements: 

• The number of columns in the first array to be multiplied must equal 
the number of rows in the second. In the example above, A(x,4)= 
B(4,x). 

• The number of rows in the receiving array must equal the number 
of rows in the first array. In the example, C(2,x)=A(2,x). 

• The number of columns in the receiving array must equal the 
number of columns in the second array. In the example, C(x,3) = 
B(x,3). 

These requirements are graphically represented below: 



A(2,4) B(4,3) 



C(2,3) 
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The arrays in statements 75 and 80 are conformable and thus are valid 
for matrix multiplication operations. 


If A contained 

p 

b 

c 

dl and B contained 

i j k 


b 

f 

g 

h J 

1 m n 






o p q 

r s t 

the values of C 

r« 

V 

wl 

, would be constructed as follows: 


Lx 

y 

d 




u = a*i + b* 1 + c*o + d*r 

(sum of members in first row of A times the members in first column of B) 
v = a*j + b*m + c*p + d*s 

(sum of members in first row of A times the members in second column of B) 
w = a*k + b*n + c*q + d*t 

(sum of members in first row of A times the members in third column of B) 
x = e*i + f*l + g*o + h*r 

(sum of members in second row of A times the members in first column of B) 
y = e*j + f*m + g*p + h*s 

(sum of members in second row of A times the members in second column of B) 
z = e*k + f*n + g*q + h*t 

(sum of members in second row of A times the members in third column of B) 



Chapter 14. What to Do When Your Program Does Not Work 


When your program does not work properly, you can use the 
following 5110 aids to assist you in determining what is wrong: 

• Program trace 

• Program step 

• Comments 

• Keyboard-generated test data files 


PROGRAM TRACE 

Program trace allows you to trace the order in which program 
statements are executed. Each statement number is displayed (and 
printed if you specify PRINT with the RUN or GO command) as the 
statement is executed. The following example shows the display and 
printout when the RUN TRACE, PRINT command is entered. 

Sample program: 


010 

DIM Q<5) 



020 

PRINT ‘ENTER 

5 TEMPE 

iRATURE QUOTATIONS 

030 

MAT INPUT Q 



O'lO 

FOR I 1 TO 5 



050 

T*T+G| CD- 



06 0 

NEXT I 



070 

A*T/5 



080 

PRINT ‘5 DAY 

MOVING 

AVERAGE w';A 

090 

STOP 
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The display shows: 

RUN TRACE,PRINT 

0010 0020 ENTER 5 TEMPERATURE QUOTATIONS 
0 030 

62 65 68 61,64- 

004-0 0050 0060 0050 0060 0050 0060 0050 0060 0050 0060 0070 
0 080 5 DAY MOVING AVERAGE = 64- 
0 090 

The printed output is: 

0 01 0 0 0 2 0 0 0 3 0 0 0 4- 0 0 0 5 0 0 0 6 0 0 0 5 0 0 0 6 0 0 0 5 0 0 0 6 0 0 0 5 0 0 0 6 0 
0 0 5 0 0 0 6 0 0 0 7 0 0 0 8 0 0 0 9 0 

Your program could stop because an error occurred, or you could stop 
execution by inserting PAUSE statement(s) in your program; for 
example: 

0035 PAUSE 
0 04-0 FOR 1*1 TO 5 
0050 T*T+Q(I) 

0055 PAUSE 
0060 NEXT I 

The PAUSE statements allow you to trace and analyze just the part of 
the program that is not working correctly. When the program above 
pauses at statement 0035, you can start it again by entering GO 40, 

TRACE. The program then pauses at statement 0055. While the 
program is halted for the PAUSE statement, you can check the value 
of variables to see if your program is progressing properly. See the 
sample cross-reference program in Chapter 15, Tips and Techniques 
for a method of listing variables to determine where they are used and 
whether they are used more than once. 

You can also start and stop a program trace during program execution 
using the WRITE FILE and FORM statements. For example: 

6255 WRITEFILE USING 6260,FLS, 1 N‘,*N* 

6260 FORM P0S3 , C, POS4-, C 

6300 WRITEFILE USING 6260,FLS,'F','F* 

Statement 6255 turns on trace with output to both the display (N in 
position 3 of file FLS) and the printer (N in position 4 of file FLS). 

Trace remains on until statement 6300 when the WRITE FILE 
statement turns it off (writes an F in positions 3 and 4 of file FLS). 
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PROGRAM STEP 


With program step, you can execute a program one step at a time, 
which can be helpful when you analyze complex routines. As with 
trace, you can execute part of the program in step mode by inserting a 
PAUSE statement at the beginning of the routine (or statements) you 
want to analyze. 


For example: 



0 010 

DIM Q< 

; s > 


0 020 

PRINT 

■ENTER 5 TEH PEI’ 

MATURE QUOTATIONS‘ 

0 03 0 

MAT If 

JRUT Q 


0 035 

PAUSE 


_Allows you to start program step 

0 040 

FOR 1 = 

= 1 TO 5 


0 050 

T=T+Q « 

: i > 


0 060 

0 065 

NEXT 1 
pause 

i; 

Allows you to stop program step and/or 

0 070 

1 1 I w w 1... 

A :::: T / 5 


analyze program results. 

0 080 

PRINT 

‘5 DAY MOVING P 

i VR A 0 :::: * ,! A 

0 090 

STOP 




When the program pauses at statement 0035, entering GO 40, STEP 
causes the program to execute one statement at a time, allowing you 
to check program results. For example: 

RUN 

ENTER 5 TEMPERATURE QUOTATIONS 
62,65,60,61,64 

0040 , STEP --Begin program step at statement 40. 



Request the values of variables T and 


I. 


0070,RUN-- 

5 BAY MOVINO AVERAGE 


Continue processing at statement 70 without 
program step. 
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COMMENTS 


Using comments within your program can help you remember program 
logic and aid in analyzing program problems. When you are finished 
developing your program, you can remove the comments or revise 
them for future program analysis. Comments use storage and a small 
amount of execution time. Thus, you should use comments carefully if 
you are concerned with performance or storage use. However, 
comments can be an important aid in future analysis of your program, 
especially if someone else must maintain the program. 


Keyboard Generated Test Data Files 

When developing or analyzing a program, you might have to use test 
data. You can use keyboard test data file(s) to create a test file on the 
display screen. You can open the screen for both input and output 
and for both stream I/O and record I/O files. For example, you can 
open line one of the screen as a stream I/O input file as shown: 


0 0 20 OPEN FL3, 1 001 MN 

References to file FL3 imply that data is to be entered from the 
keyboard; for example: 

0360 GET FL3,A*,B,C 

This statement indicates that an alphabetic field followed by two 
numeric fields will be read from the file referenced by FL3; for 
example: 

Allen Brown, 4.80, 6085.56 

You could also use lines 1 through 14 as a record I/O file, for 
example: 

0020 OPEN FILE FL2,’002',ALL 
01+00 READFILE USING M l 0 , FL2, A$, B, C 
01+10 FORM POS1,C20,NC5,NC3 

References to file FL2 indicate that data will be read from the display 
screen. 

You can enter test data as necessary to thoroughly test your program 
during program development. When you are finished testing, you can 
change device addresses to the value you will use in your finished 
program. 




Chapter 15. Tips and Techniques 


Often, specific examples can aid you in understanding the operation of 
a function or a group of functions. This chapter shows examples and 
describes different techniques that you may find helpful in developing 
and using your programs. The topics included in this chapter are: 

• Performance considerations 

• Storage considerations 

• Program analysis using a cross-reference program 

• Skipping to a new page while printing 

• Locating a character in a string 

• Testing for an error 

• Sorting an index file 

• Another way to read a stream I/O file 

• Examples of the different file access methods 

PERFORMANCE CONSIDERATIONS 

As you optimize the performance of an application, you may want to 
consider the following: 

Program design 
Index file sorting 
Print overlap 
Display off 

Main storage index area 
Data file access selection 


Tips and Techniques 
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Program Design 


Performance of an application is enhanced if it is initially designed 
carefully and thoughtfully. Flow diagrams are very helpful in designing 
efficient running systems. There are many publications on 
flowcharting that you may find helpful if you are not familiar with the 
technique. 


Index File Sorting 

Many applications, such as inventory, make use of an index file with 
pointers that allow fast access to desired records. If the index file for 
the inventory example is sorted in ascending order, access to master 
inventory records will be faster. The increased performance occurs as 
the result of the fast scan feature implemented in the 5110, which 
requires a sorted file. As new items are added to the master file, the 
item number key (item number is specified as the key) is added to the 
end of the index file. Depending on the activity of adding and deleting 
records, the index file should be periodically sorted so that the new 
index record is placed in its proper location and the unwanted index 
records are deleted. You can sort the index file using the 5110 
Diskette Sort feature; see Sorting an Index File in this chapter. 


Print Overlap 

The 5110 can overlap printer output with computer processing. If it is 
possible with your application, the printed output might be as 
illustrated below: 

0 0.1. 0 CALCULATION 


0050 PRINT FLP 
0060 CALCULATION 


0100 PRINT FLP 
0:!. 1 0 CALCULATION 


In the above illustration, calculations to be included in the next print 
statement are being performed while the previous line is being printed. 






Display Off 


Some applications may require extensive periods of processing time. 
Such applications should execute faster if the display screen is turned 
off so that the 5110 does not have to take the time to keep the 
display generated. You can turn off the display screen by writing an F 
in position 1 of file FLS. This procedure is described under Using the 
System Control functions in Chapter 12. 


Main Storage Index Area 

Access to a master file record using an index file can be improved 
substantially if you maintain a main storage index area that points to 
the index file. To do this, you use the KW= parameter, which is 
included in the OPEN statement for the index file. For example, 

0 030 OPEN FILE FL2, *D0O \ N, ‘TAXES \ IN,KEY,KW«900 

In the above statement, 900 bytes of main storage have been allocated 
for index file pointers. Use of this storage area can best be described 
with an example. 
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Consider an inventory application with the following characteristics: 

• The maximum number of items in the master file is 1000 items. 

• The key to the master file is the item number which is 12 bytes. 

• The diskette format is 256 bytes per sector. 

• The master file record size is 100 bytes per record. 

The following questions can be asked: 

• How large should the index file be? 

• How large should the storage index area be? 

Before you answer the above questions, study the following diagram 
to help you understand the use of the KW storage area and index file. 


KW=Main Storage 






















The index file, maintained in sorted order, contains each key and the 
record number of each record in the master file. A key record is 
always 8, 16, or 32 bytes. In the example, the key length (item 
number) is 12 bytes. A master file record number is 4 bytes, giving 16 
bytes total for each key record. 

The main storage index area contains the first key in a sector and the 
physical record location of the key in the index file. 

The index file sector containing the item number key is found by 
comparing the item number to the keys in storage. Because the index 
file and main storage index area are in sorted order, the sector 
location of the key index record can be quickly found. The system 
proceeds to the sector designated and reads the sector sequentially 
until it finds the matching key. After the matching key is found, the 
master file address is read and used to directly access the item master 
record. If no key match was found in the index sector, the system 
proceeds to the end of the file to see if new records have been added. 
If no key match occurs at the end of the index file, an error occurs. 

Now, to answer the first question, the index file size is found by 
multiplying the maximum number of keys by the key length, which is 
1,000*16 or 16K. The size required for the storage index area is 
calculated as follows: 

1000/ 16 * 14 = 875 bytes 

^-Size of the Main Storage Index Area 

-Key Length Plus 2 

-Number of Key Records Per Sector (256/16) 

-Maximum Number of Keys in the Index File 

This example, using KW=900 is slightly greater than the exact amount 
of storage area to contain one key for every sector in the index file. 

The above procedure produces the most efficient method of accessing 
the master file by index key. However, you need not have one key in 
storage for every sector in the index file. If storage is limited, as little 
as one key in storage (KW=14) would improve access time by starting 
the search in the middle of the index file as required. 
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Data File Access Selection 


One of the most important decisions is choosing the proper access 
method for your data files. 

Whether to use the sequential, direct, or indexed access method 
depends on your application. 


Individual Record Access 

The fastest method of access to an individual record is directly by 
means of the relative record number of the desired record. 

For example, in an inventory file it is possible to convert the item 
number into a record number. Item numbers could be 1 to 1000. Item 
number 52 would be record 52 in the file. There are more complicated 
methods for creating a relative record number; however, they are 
beyond the scope of this document. 

Indexing is the next fastest method to access individual records. A 
pointer to the master file data record is maintained in an index file. 
This is the most commonly used access method because existing keys 
such as item numbers can be used without chance of duplicates. 

Processing a file sequentially to find an individual record is time 
consuming because the file must be read from the beginning until the 
proper record is found. 


Sequential Access 

If a file can be accessed sequentially, the fastest method would be to 
sort the master file into the desired order before processing. If the file 
is processed sequentially in some cases and directly in others, it may 
be more appropriate to create a sorted index file. The system can 
then access the master file sequentially by accessing the index file 
sequentially or directly by providing a key to the index file. 



Rounding a Number Internally 

Sometimes when you are making calculations on the 5110, it can be 
too accurate, as in the following payroll calculation example. 


0010 

H= 36.75 

0020 

R= $5.37 

0030 

G= H*R 

0040 

PRINT USING 50,G 

0050 

: GROSS PAY IS ####.## 


When the payroll calculation is executed, the gross pay is rounded and 
displayed as $197.35. However, the value in G is actually $197.3475. If 
G is calculated repeatedly, then added to a total, it is possible that the 
total individual gross pay that is printed will not be equal to the 
computed total. To prevent the 5110 from calculating an unequal total, 
you should round the number internally to two decimal places. 

To round the number internally to two decimal places, insert the 
following user-defined function in the program: 

DEF FNR(X)=SGN(X)*((INT({ABS(X)+5E-3)*100))/100) 

In the preceding payroll calculation example, line 0030 should now 
read 

0030 G= FNR(H*R) 
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STORAGE CONSIDERATIONS 


User Storage 

The amount of user storage available to you for application programs 
depends upon your 5110 model. Four different storage sizes are 
available: 

16K bytes 
32K bytes 
48K bytes 
64K bytes 

Any model can be up-graded to the next higher model by the addition 
of 16K of storage. In all models, approximately 4K bytes are used for 
system-related functions. The remaining storage is available for 
program and data storage. It is a good idea to subtract a buffer of 1K 
bytes when estimating storage requirements. 

Considering a 32K machine, for example, you would subtract 5K, 
leaving 27K bytes for your program and data. The amount of storage^ 
used for a program is a function of many items: 

• Program Design 

- Variables 

- Program statements 

- Buffers 

- Precision 


Careful control of the above items should lead to both smaller 
programs and more efficient programs. 



Program Design 


Storage is allocated for each program statement you write and each 
variable you use. Careful program design should eliminate unnecessary 
program statements and variables. A flow diagram prepared for each 
essential step of the application will aid you in writing the program. 
Commonly used calculations, such as tax calculation, can be quickly 
identified and written as a subroutine rather than rewritten in various 
parts of your programs. Your application may lend itself to being 
divided into individual programs, each with a specific function. 

• Application 

- Data entry 

- Data edit/update 

- Sort 

- Process/update 

- Print reports 

The above functions could describe the steps in many different 
applications. Each of these may, perhaps, also be subdivided into 
smaller programs. 

Addressing the elements of the application one at a time, rather than 
attempting to write the entire application as a single program, should 
result in easier programs to write and understand, and require less 
storage for execution. 


Variables 

Each time a new variable is used in your program the system 
automatically assigns a predetermined (default) amount of storage for 
the data in that variable. For example: 

0020 A*«*JAMES SMITH’ 

The character variable A$ was assigned 18 character positions in 
storage even though the data 'JAMES SMITH' occupies only 11 
positions. 
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If the data in A$ is constant or can be limited to 11 positions, you can 
use a dimension statement to override the default value and assign 
only the necessary 11 positions to A$, thus using only the amount of 
storage absolutely necessary. For example: 

0010 DIM A$11 

A specific amount of storage is required for the definition of each 
variable as it is encountered; this amount does not include the space 
allocated to that variable for data storage. In the above example, with 
no dimension statement, 4 bytes are required for the A$ definition, 
bringing the storage utilization to 18+4 or 22 bytes. The amount of 
storage required for the different variable definitions and data storage 
is specified in the IBM 5110 BASIC Reference Manual. 

Use of matrix variable definition can also help in conserving storage. 
Suppose four character-fields are to be used as follows: 

A$ Name 

B$ Street Address 

C$ City 

D$ State 

Assuming the data storage for each variable defaults to 18 characters, 
a total of 88 bytes of storage would be required. If the same data 
were placed in a four-element matrix, the amount of storage used 
would be 4 elements * 18 bytes of data plus 10 bytes for the matrix 
definition. For example: 

(4 * 18)+10=82 bytes 


Program Statements 

Program statements also occupy storage; this is a more difficult item 
to estimate due to the complexities of each statement. A program 
statement may use from 18 through 77 characters, depending upon 
the content of the statement. 

The actual amount of user storage available is displayed in the lower 
right corner of the display when the 5110 is in the ready state. For a 
64K system this is 65,536-4,624 or 60,912. The 4,624 bytes represent 
system work space. 

A more accurate method to determine program statement storage is to 
save a program on tape or diskette. When the program is reloaded, 
the amount of user space left will be displayed in the lower right 
corner. Subtracting this number from 60,912 yields the actual program 
statement requirements. 



Buffers 


Buffer storage is required for operation involving data files, printer 
output, and the special function using A$. 


Data Files 

Each time a stream I/O data file is opened, a storage buffer of 50 
bytes plus the physical record length is allocated. The physical record 
length is 512 bytes if the file references tape, and the physical record 
length is the sector size if the file references the diskette. 

Each time a record I/O file is opened, a storage buffer of 68 bytes 
plus a multiple of the physical record length is allocated. Most 
commonly, the multiple is 1 or 2. The physical record length for tape 
is always 512 bytes. The physical record length for a diskette can be 
128, 256, 512, or 1024 bytes depending on how the diskette is 
initialized. Record I/O buffers are discussed in the IBM 5110 BASIC 
Reference Manual. 


Printer 

Printer output requires a buffer storage of 200 bytes. 


Using A$ 

The using A$ parameter is used with the READ and PRINT statements 

0020 A$ : ~'FORM 3#NC5' 

03'+0 PRINT USING A$,FLP,A,B,C 

The first time a using A$ parameter is encountered, the 5110 
automatically allocates a 420-byte buffer, which is used by all 
subsequent using A$ statements. Statements referencing other 
variable identification, such as B$ also use the same buffer area. 
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PROGRAM ANALYSIS USING A CROSS-REFERENCE PROGRAM 


Occasionally, while writing a BASIC program with many loops, 
subroutines, and other functions, you may find that normal debugging 
techniques are unsuited due to the complexity of the program. The 
following cross-reference program can be used to cross-reference the 
occurrence of variables, line numbers, functions, and so on, within any 
program saved in a file. To do this, simply load the cross-reference 
program, and respond to its prompting messages for the device 
address, number, and name of the file containing the program to be 
cross-referenced. The program to be processed must have been 
saved in source format with 64-or-128-character record length. For 
example: 

S A V E :!., ’ N A M E ' S 0 U R C E , R E C L= 6 4-D 8 0 

Note: The example cross-reference program will execute in a 5110 with 
16K of storage. For a 16K system, remove all remarks and set the array 
elements (line 0040) to 800. Be sure the redimensioned array elements 
do not cause the program to exceed the main storage requirements of the 
machine. If the system's main storage requirements are exceeded, an 
error will occur. For details about the cross-reference program, see the 
IBM 5110 BASIC Reference Manual. 


The following is a listing of the cross-reference program. 

0010 REM BASIC CROSS REFERENCE PROGRAM 
0020 REM 

0030 DIM N$4-,B$4-,C$3? 

0 03M- REM PROGRAM RUNS IN 64-IC STORAGE. 

0 035 REM •••• FOR 16I< STORAGE, REMOVE ALL REM’S, SET ARRAY ELEMENTS 
0036 REM - TO 800 IN FOLLOWING STATEMENT. 

0 0 4- 0 DIM R$4- (3 0 0 0 ) , S$4- (3 0 0 0 ) , X < 3 0 0 0 ) 

0 0 5 0 C $ ~ 1 A B C D E F G HIJ K L M N 0 P Q R 8 T U V W X Y Z $ # A 012 34-56 7 89 ’ 

0 0 6 0 P RIN T ’ E N T E R D E VIC E C 0 D E , FIL E N U M, FIL E ID F 0 R P G M ’ 

0070 INPUT D$,F,F$ 

0080 ONERROR GOTO 200 
0 0 9 0 0 P E N FIL E F l.. 1, D $ , F, F $, IN 
0:1.0 0 ONERROR SYSTEM 
0.1. .1.0 R™ RLN ( ’ FL1 ’ ) 

01.20 IF RX64- GOTO 1.50 
0130 DIM A$60,M$59 
01.40 GOTO 290 
01.50 IF Ri^ 128 GOTO 180 
0160 DIM A$1.24-, M$123 
0.170 GOTO 290 

0180 PRINT ’RECORD LENGTH OF INPUT FILE NOT 64- OR 1.28’ 

0190 STOP 

0200 IF &ERR*608 GOTO 270 
02.1.0 ONERROR SYSTEM 
0220 OPEN FL1,D$,F,F$,IN 
0230 WRITEFILE FLS,’ FL1* 

024 0 T11. 
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0250 DIM A*128,M$127 
0260 GOTO 290 

0270 PRINT 'ERROR DURING OPEN -'SERF? 

0280 STOP 

0290 WRITERILE FLS, *F' 

0300 REM 

0310 REM START OF LOOP TO PROCESS INPUT RECORDS 
0320 REM 

0330 GOTO 370 ON Tl 

03«+0 READF.TLE USING 350 , FL..1, N$, MH>, EOF 710 

0350 FORM CM-, XI, C 

0360 GOTO M00 

0370 GET FL1, A$,EOF 710 

0380 N$*STR<A$,1,M> 

0390 M*«STR(A*,6> 

0M00 PRINT FLP, N$ 1 'M$ 

0M-10 GOSUB 970 

0M-2.0 IF STR < m , 1,3) * ' REM ' GOTO 330 
0 M- 3 0 IF S T R ( m , 1, 1) « ' : ' GOT O 3 3 0 

0 M- M- 0 IF S T R ( M $, 1, M-)* 'DATA' G O T O 3 3 0 

0M-50 A**M$ 

0M-60 REM REPLACE ALL OPERATORS WITH BLANKS 
0M-70 REM 

0M-80 FOR I.1 TO LEN(A$) 

0M-90 IF IDX (C$, STR (A$, 1, 1 > )X0 GOTO 560 

0 5 0 0 IF S T R < A $ , 1, 1 > X ' ' ' ' G O T O 5 5 0 

0510 J*IDX(STR<A$,1 + 1), ' ' ’ ' ) 

0520 STR(A$,1,0+1)=* ' 

0530 I*I+J 

05M0 GOTO 560 

0550 STR (A$ ,1,1) :::: ' ' 

0560 NEXT I 

0570 REM INPUT RECORD HAS BEEN MODIFIED - EXTRACT REFERENCES 
0580 L*L.EN(A$) 

0590 1*0 
0600 1*1+1 

0610 IF I.:H.., GOTO 330 
0 6 2 0 IF S T R ( A $, 1, 1) * ' * G O T O 6 0 0 
0630 J«IDX(STR(AM I) , * ') 

06M0 B$=STR(A$,I,J-l) 

0650 I*I+J-l 
0660 X1*X1+1 
0670 8$ (XI) “ : N$ 

0680 R$(X1)*B$ 

0690 IF I<L GOTO 620 
0700 GOTO 330 

0710 REM END OF PROGRAM ™ SORT AND PRINT OUT 
0720 GOSUB 10M0 
0730 MAT Rf(XI)=R$ 

07M0 MAT S$(X1)=S* 

0750 MAT X(X1)=(0) 

0760 MAT X*AIDX(R$) 

0770 C0=0 

0780 FOR 1*1 TO XI 
0 7 9 0 IF N $ :::: R $ (X (I) ) G O T O 8 5 0 
0800 GOSUB 970 

0810 PRINT FLP,TAB(1),R$(X(I));TAB(5); * : ' ; 
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0820 N=N+1 

0030 C0==0 

0040 N$™R$(X<I)) 

0050 CO=C0+1 

0860 IF CO<10 GOTO 900 

0870 GOSUB 970 

0 88 0 P RIN T F L P ,T A B (5) , * * ; 

0890 CO-1 

0 9 0 0 P R :i: N T FL P, • ■ ; S $ < X (I) ) ; 

0910 NEXT I 
0920 PRINT FLP 

0 9 3 0 P RIN T FP , ' N U M 0 F S Y ii B 0 L 8 = ’ N 

0940 PRINT FLP,* NUM OF REFERENCES ™‘X1 
0950 GOSUB 1040 
0960 STOP 

0970 READFILE USING 98Q,FLS,LQ 
0980 FORM POS11,NC5 
0 9 9 0 L 0 * IN T ( L 0 / 6 6) *6 6+6 6•••■ L 0 
1000 IF L0<OiL0>6 GOTO 1030 
1 0 10 PRINT USING 1020 , FLP, ’ ’ 

1020 FORM Cl,SKI PL0 
1030 RETURN 

10 4 0 R E A D FIL E U SIN G 10 5 0 , F L S, L 0 
1050 FORM POS11,NC5 
10 6 0 L 0 * INT (L 0 / 6 6 > *66+66•••• L 0 
1 070 PRINT USING 1080 , FLP, ‘ ‘ 

1080 FORM Cl,SKIPL0 
1090 RETURN 


The following is a sample printout when the cross-reference program 
is run by itself. 


A $ 

0370 

038 0 

0 390 

0450 

0480 

0490 

050 0 

0510 

0520 


0580 

0620 

0630 

0 64 0 






Ail::!. 2 

0160 

0250 








A$60 

0130 









AIDX 

0760 









B $ 

0640 

068 0 








B$4 

0 030 









C 

0350 









c$ 

0 050 

0490 








C$39 

0 030 









CO 

0770 

0830 

0850 

0850 

0860 

0890 




Cl 

1020 

10 8 0 








C4 

0350 









D$ 

0 070 

0 090 

0 220 







DIM 

0 030 

0 040 

0130 

0160 

0250 





EOF 

034 0 

0370 








ERR 

0 2 0 0 

0270 








F 

0 0 70 

0 090 

0220 







F $ 

0 0 7 0 

0 090 

0220 







FILE 

0 0 9 0 









FLP 

0 '■!• 0 0 

0810 

0880 

090 0 

0920 

0930 

0940 

1010 

10 70 

FLS 

0230 

0290 

0 970 

1040 






FL1 

0 090 

0220 

034 0 

0370 






FOR 

0 480 

0 780 
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FORM 

0350 

0980 

1020 

1050 

1080 

GET 

0370 





GOBI.) 

o • i :i. o 

0720 

0 8 0 0 

0870 

0 950 

GOTO 

0 0 8 0 

0120 

0140 

0150 

0170 


0430 

044 0 

0 49 0 

050 0 

054 0 


0860 

1 0 0 0 




I 

0480 

0490 

0 5 0 0 

0 510 

0520 


060 0 

0 6 0 0 

0610 

0620 

0630 


079 0 

0 810 

084 0 

090 0 

0910 

IDX 

04-90 

051 0 

() 6 3 0 



IF 

012 0 

0150 

0 2 0 0 

0420 

0 43 0 


0 6 9 0 

0 790 

0860 

10 0 0 


IN 

0 0 9 0 

0220 




INPU 

0 0 7 0 





I NT 

0 990 

10 6 0 




J 

0 510 

0520 

0530 

0 630 

064 0 

L 

0500 

0 61 0 

0 69 0 



LEN 

0480 

0580 




LO 

0970 

0990 

0990 

0990 

10 0 0 

m> 

0 34 0 

039 0 

0 <i- 0 0 

0420 

0430 

M $ 12 

0 :i. 6 0 

0250 




M$59 

013 0 





MAT 

0 730 

0740 

0750 

0 760 


N 

0 820 

0 82 0 

0930 



N $ 

0 34 0 

0 380 

0 4 0 0 

0670 

0790 

N $ 4 

0 0 3 0 





NC5 

0980 

1050 




NEXT 

056 0 

0 9 :i. o 




ON 

0 330 





ONE R 

0 0 8 0 

0 10 0 

0 21 0 



OPEN 

0 0 9 0 

0220 




POS :i. 

0980 

105 0 




PR IN 

0 0 6 0 

018 0 

0 27 0 

0 4 0 0 

0 81 0 


l o :i. o 

1 0 7 0 




R 

o :!. i o 

012 0 

015 0 



R$ 

068 0 

0 7 3 0 

0 /3 0 

0 76 0 

0 790 

R$4 

0 0 4- 0 





READ 

0340 

0 970 

1 0 4 0 



RE TU 

10 3 0 

1 0 9 0 




RUN 

01 i 0 





8 H> 

0670 

074 0 

0740 

0 9 U 0 


S$4 

0 0 4 0 





BK I P 

10 2 0 

10 8 0 




S T (!) P 

0:1.90 

028 0 

0 960 



ST R 

0 38 0 

0 39 0 

0 420 

0 430 

044 0 


0620 

0 6 3 0 

0 64 0 



BY ST 

010 0 

0 21 0 




TAB 

0 81 0 

0 81 0 

0 88 0 



TO 

048 0 

0 78 0 




T1 

0240 

0330 




US IN 

0340 

0970 

10 1 0 

1 0 4- 0 

1070 

UIRIT 

0 23 0 

0 29 0 





020 0 
0610 

0 260 
0620 

033 0 
0690 

0360 
070 0 

0420 

0790 

0530 

0640 

0530 

0650 

0550 

0 650 

0560 

0690 

0590 

0780 

044 0 

0490 

050 0 

0 610 

0620 

0 650 





10 0 0 

0 440 

1040 
0450 

10 6 0 

10 6 0 

1 0 6 0 

0 84 0 





0880 

0 9 0 0 

0920 

0930 

0940 

0 81 0 

0 84 0 




0 490 

0 5 0 0 

0510 

0520 

0550 
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X ; 

0 04 0 

0750 

0760 

0790 

XI : 

0350 

0 6 6 0 

0660 

0670 

0 : 

04-90 

0 590 

0750 

0770 

l : 

024-0 

0380 

0 4-2 0 

04-30 

| 

0520 

0550 

060 0 

0620 

! 

0850 

0890 



l o ; 

0860 




10 2 o : 

101 0 




:!.030 : 

10 0 0 




10 4- 0 : 

0720 

0950 



1050 ! 

104-0 




1080 : 

1070 




128 : 

0150 




150 : 

0120 




18 0 : 

0150 




2 o 0 : 

0 080 




27 0 : 

020 0 




290 : 

0 14-0 

017 0 

0 26 0 


3 

04-20 




3 0 0 0 : 

0 04-0 

0 0 4 0 

0 0 4- 0 


33 0 ; 

04-20 

0 4- 3 0 

04-4-0 

0 610 

350 ; 

0340 




370 ; 

0 330 




4- : 

038 0 

04-4-0 



4-0 0 : 

0360 




5 : 

0810 

0880 



55 0 : 

0 5 0 0 




560 ; 

0 4-90 

054- 0 



6 ! 

0390 

10 0 0 



60 0 : 

0620 




608 : 

020 0 




620 : 

0 690 




6 4- ! 

0120 




6 6 : 

0990 

0 990 

0990 

10 6 0 

710 : 

0 34-0 

0370 



850 : 

0790 




90 0 : 

0860 




970 : 

04-10 

080 0 

0870 


980 : 

0970 




NUMBER 

OF SYMBOLS 

= 10 

5 

NUMBER 

OF REFERENCE 

S = 37 

6 


0810 

0680 

084-0 

0730 

090 0 
074-0 

0 750 

0780 

094 0 

0830 

04-30 

10 0 0 
04 4 0 

04-80 

04-90 

050 0 

0510 

064-0 

0650 

0660 

0780 

0810 

0820 


070 0 


1060 1060 





SKIPPING TO A NEW PAGE WHILE PRINTING 


Using File FLS 

In the cross-reference program (see Program Analysis Using a 
Cross-Reference Program, this chapter), lines 970 to 1090 show two 
methods of skipping to a new page while printing. 

• Skip to a new page with 6 or fewer lines left 

• Skip unconditionally to a new page 

Both methods use a portion of the contents of file FLS. Positions 11 
through 15 of file FLS always contain the total number of lines printed. 

0 9 7 0 R E A D i :: ' IL E U SIN G 98 0 , F L S, L 0 
0980 FORM P0S11,NC5 
0 9 9 0 L 0 :::: I N T < L 0 / 6 6 > * 6 6 + 6 6 •••• L 0 

i o o o :i: f l o < o i l o > 6 g o t o i o 3 0 

:l. 01 0 P RIN "f U SIN G 10 2 0 , F L P, ’ ‘ 

.1.020 FORM Cl, SKIPLO 
1030 RETURN 

1 0 M- 0 R E A D FIL E U 81N G 1 0 5 0 , F L 8 , L 0 

1050 FORM P0S11,NC5 

.1. 0 c> 0 L (j :::: .1. N l (L.. 0 / t'i ) * <f> 3 8 i.., () 

10 7 0 P R 1 N T U 81N G 10 8 0 , F L P, * ‘ 

1080 FORM C1,SKIPL0 
1090 RETURN 


Tips and Techniques 161 



Statements 970 and 1040 are READ FILE statements that access file 
FLS. Statements 980 and 1050 are FORM statements specifying that 
only the 5 numeric characters beginning in position 11 of file FLS be 
accessed. From this point on, the two methods of page skipping 
differ. The subroutine consisting of lines 970 to 1030 specifies that 
printing starts on a new page if space for 6 or less lines remains on 
the current page. The subroutine consisting of lines 1040 to 1090 
specifies that printing starts on a new page unconditionally. In both 
cases, the constant 66 (11-inch paper at 6 lines per inch) is used as 
the page length. The calculations in statements 990 and 1060 use the 
data from file FLS (named L0) to determine remaining space on the 
current page. The IF statement (1000) specifies the conditions for 
skipping to a new page (if space remaining is less than zero or greater 
than 6, continue printing). Statements 1010 and 1060 specify that 
blank lines be printed according to the FORM statements in 1020 and 
1070. These FORM statements also indicate that L0 is the number of 
lines to be skipped. The following examples show a breakdown of the 
calculations in lines 990 and 1060. These examples assume a value for 
L0 (positions 11 to 15 of file FLS) of 3200 or 670. 


Example 1 


Example 2 


L0=3200 

3200 

INT(L0/66) 

48 

Integer portion of 

L0 divided by 66. 

L0=670 

670 

INT(L0/66) 

10 

This determines the number 
of pages already printed. 

( 48)*66 
3168 

Integer portion of 

L0 multiplied by 66. 

( 11 )*66 

660 

This determines total lines 
already printed on pages. 

( 3168J+66 
3234 

Lines printed on 
other pages plus 66. 

( 660)+66 
726 

This allows for inclusion of 
the 66 lines available on the 
current page being printed. 

( 3234)-L0 
34 

Total lines 
possible (including 
current page) 
minus L0. 

o 

_i 

i 

CD 

CM 

cd 

— ID 

This determines the line spaces 
remaining on the current page 
(34 and 56, respectively). 



User Program Control 


Printing can also be controlled by the user keeping track of the lines 
printed on each page. 


0 010 
0 020 
0 030 
0 0 * I 0 

0 050 
0 060 
0 070 
0 080 
0 090 

o :i. o o 
o i :i. o 
0 : 1.20 
0:1.30 

o mo 

0150 
0:1.60 
0 :l. 70 


T=7 

H=2 

S™ T "H 

GOSUB 120 

FOR 1=1 TO 110 

PRINT FLP , I-— 

L=L +1 


T = lines per page 
H = lines in the page heading 
S - lines available for printing 


Print your report 


IF L=S GOTO 10 0 -*-Test for printed lines equal to 

GOTO 110 S = lines available for printing 

GOSUB .1.20 

NEXT I-»-Skip to a new page 

E E M f Print page head ing 

f f 0120-0170 l Set page number 

k”® v Lines printed = 0 

PRINT FLP 

P RIN T F L P, T A B (15) , ‘ P A G E ' ; P 

RETURN 


6 

7 

8 

9 

10 


PAGE 


PA 


AGE 


PAGE 

1.1 

1.2 

1.3 

1.4 


For simplicity of illustration, a page size of 7 lines was used. This 
would normally be 66 for standard printed reports. Checks, invoices, 
and other documents would require different page sizes. The page 
heading would also be more extensive; however, the concept is the 
same. 

By changing the value in variable T, you can quickly accommodate 
various sizes of paper for the same report. 
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LOCATING A CHARACTER IN A STRING 


Another form of the computed GOTO statement uses the IDX intrinsic 
function, which allows you to determine the exact position of a 
specific character within a character string. For example, assuming 
that the operator entered N in response to input statement 920: 


0 910 

DIM M 

>1 


0920 

PRINT 

‘ARE DIVH 

JENDS 

0930 

INPUT 

AT 


09 >10 

GOTO 

>50,2000 or 

1 ID) 

0950 

0960 

GOTO < 
REM 

>10 



TO BE REINVESTED? Y OR 
<'YN 1 ,AT) 


N ' 


•x 


Statement 940 causes the program to branch to statement 2000 (the 
second statement number in the list, just as N is the second character 
in the string). If neither a Y or N is entered, the program repeats the 
prompt to the operator (statement 950). 


TESTING FOR AN ERROR 


The ONERROR statement provides another means of error recovery. 
This statement operates with two internal functions (& ERR and 
& LINE) to identify any type of error by error number and by the 
number of the line at which the error occurred. You can enter an 
ONERROR statement with a GOTO parameter to transfer program 
control to a particular statement in the event of an error, as shown 
below: 


0010 ONERROR GOTO 115 
0020 0PEN FL9, 'D80’ , 5, 'GE0RGE‘ ,0UT 
0 0 3 0 P R I N T * E N T E R P RIN C IP L E ' 


0 0 >10 INPUT P 

0050 PRINT ’TIME’,'RATE' 
0 06 0 FOR T™:1. TO 10 
0070 FOR R«1 TO 20 
0 0 8 0 A * P * < 1 + R /10 0 > f T 
0090 PUT FL9,T,R,A 
0100 NEXT R 
0110 NEXT T 
0115 0 N E R R 0 R S Y S T E M 
0120 CLOSE FL9 
0130 STOP 


, ’AMOUNT' 

-Calculated future value of 

principal at a rate of 
1%to 20% for 1 to 10 
years compounded yearly 


164 



In this example, the ONERROR statement specifies that file FL9 be 
closed (statement 120) if an error occurs. If, for example, the file was 
too small to hold all the values being entered into it, the ONERROR 
statement would ensure that the file was properly closed. The file 
could then be re-marked to a larger size. 


The internal constants (& ERR and & LINE) can also be used to record 
error occurrences in a program with many input/output statements. In 
the following example, the ONERROR statement specifies that the 
program branch to the PRINT statement (line 150). The internal 
constants &ERR and &LINE are then inserted into the displayed line 
to indicate the error number and line number at which the error 
occurred. 


0 015 

ONERR( 

3R GOTO 146 

0 020 

□ PEN l : 

:: 'L4 ‘ D 8 0 ‘ , ‘ AF 

0 030 

GET FI. 

.4 , A .. B , C , D , E 

0 0 4-0 

LET B- 

» A 

0 050 

LET A :: 

"36 

0 0 6 0 

LET C :: 

«C + B 

0 070 

CLOSE 

FL4 

0 080 

OPEN 1 

;: ‘L4 j ' D80 * , ' AF 

0 090 

PUT FI. 

•< 4 f A , B , C 

0 1 0 0 

CLOSE 

FL 4 

0 :l. :l. 0 

OPEN F 

: 'L4, ' BOO ‘ ’ AF 

0120 

GET FI 

■ 4-, A , B , C , D j E 

0130 

LET A" 


014 0 

LET D" 

"■ A -• E 

0145 

GOTO :l 

1.60 

0146 

ONERROR SYSTEM 

0150 

PRINT 

' ERROR *,&ERR 

0160 

CLOSE 

FI.., 4 

0170 

STOP 



, IN 

, QIJ T 

i IN 

' H A S 0 0 C U R R If." D A T LIN E * , & LIN If 


Note that the EXIT statement and the error exit clauses on 
input/output statements take precedence over the ONERROR 
statement. In other words, if an EOF condition occurs in a statement 
with an EOF exit specified, the EOF exit is taken even though the 
program might also contain an ONERROR statement. ONERROR 
SYSTEM should be the first statement of an error recovery program to 
avoid loops. Terminal errors clear internal error pointers and the 
program must go to end-of-job. 
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SORTING AN INDEX FILE 


0 0 1 0 
0 020 
0 0 3 0 
0 04 0 
0 050 
0 06 0 
0 0 7 0 
0 0 8 0 
0 0 9 0 
0 1 0 0 
011 0 
0 120 
0130 
014 0 
0150 
0160 
0 170 
0 18 0 
0 19 0 
0 2 0 0 
021 0 
0220 
0230 
0 24 0 
0 250 
0 260 
0 27 0 
028 0 
029 0 
0 3 0 0 
0 31 0 
0 320 
033 0 
034 0 
0350 


When you create a key-indexed file, the key and corresponding 
location of each record in the file is stored in the index file. 
Subsequent access of the file can be significantly improved if you sort 
these keys into sequence. The following sample program illustrates a 
method of sorting the record keys in the index file. This is a storage 
sort and assumes that all keys can be loaded into storage at one time. 
The size of your machine will determine the maximum number of keys 
that can be sorted in this manner. If your 5110 storage size is less 
than 64K, adjust the DIM statements (130, 160, and 190) accordingly. 
Only those statements in the sample program that pertain to the index 
sort are discussed; others may be self-explanatory. 


R E M IN D E X FIL E S 0 RI P E 0 8 R A M 

REM 

REM 

REM IF STORAGE SIZE IS LESS THAN 64K ADJUST DIMENSIONS 

REM FOR !<$ AND X ACCORDINGLY 

REM 

P RI N T ' E N T E R D E VIC E C 0 D E , F IL E N U M B E R A N D F IL E I D E N T ' 
p RIN T * F 0 R IN D E X F IL E T 0 B E S 0 R T E D ' 

INPUT D -l> .< F, F$ 

0 P E N FIL E F L, 1D $ , F , F $ # IN 


R-" RLN < ‘ FL1 ‘ ) -— 

IF RX32 GOTO 150- 
DIM K ■!>32 < 14 0 0 ) i X( 140 0 ) 
GOTO 200 

IF RX16 GOTO 180 
DIM K $ 16 < 2 3 0 0 > , X ( 2 3 0 0 l 
GOTO 200 
IF RX8 GOTO 350 


^-Identify key index file. 
Length of last record in FL1. 


► Key records are always 8, 16, or 32 bytes. 


Space for 3500 8-byte keys in K$. 


DIM K $ 8 < 3 5 0 0 ) , X ( 3 5 0 0 ) —-- 

REM READ IN ALL RECORDS IN THE FILE 
I* I + 1 

READFILE FL 1, !<$ < I) , EOF 240 ■*-Bring all key records into storage. 

GOTO 210 

R E M C L, 0 S E IN P U T FIL E , A N D D E T E R MIN E 8 0 R T E D 0 R D E R 
I * I -1 

CLOSE FILE FL1_______— Set matrix size to I elements. 

MAT X < I) :::: AIDX ( l< $ >-*-— Ascending index value of K$ into X. 

R E M R E U RIT E I N D E X FIL E I N A S C E N DIN G S E Q U E N C E 
0 P E N FIL E F L1, D $ , F, F ■!> , 0 U T , R E C L :::: R 
FOR J»1 TO I 

U R I TEFI LE F L 1, !< $ < X < J ) ) --New file of keys in K$ created 

NEXT J as indexed by X(J). 

sro p 

P RIN T ' N 0 T v A LID IN D E X F 1L, E R E C 0 R D L E N G T H ‘ 













Statements 70 and 80 request the indicated information, which is then 
used to open the file in statement 100. The length of the last record 
accessed in the file referenced FL1 is assigned to R in statement 110. 
In statements 120, 150, and 180, the exact record length is tested, and 
variables K$ and X are adjusted accordingly in the following statement. 
Note that, if record length is not equal to 8 (statement 180), the 
program terminates by branching to statement 350. Statements 210, 
220, and 230 read all the record keys from the index file and branch to 
statement 240 when end of file is reached. The file is closed in 
statement 260. Statements 270 and 280 put the indexed file values in 
ascending order into matrix X (see Index Function in Chapter 2). 
Statement 300 reopens the original file (referenced FL1) for output 
with the same record length. Finally, statements 310, 320, and 330 
write all the record key values into the file in ascending sequence 
according to their ascending order in matrix X. 


ANOTHER WAY TO READ A STREAM INPUT FILE 

Using a system file called file FLS, you can obtain an alternate form of 
stream-oriented file input. This form of input allows your program to 
get a logical record from a stream-oriented file and assign the entire 
record (including all quotation marks and commas) to one character 
variable. Thus, a BASIC program in source form and in a type 2 or 
type 9 file can be read and processed as in the preceding 
cross-reference program. Alternate stream file input can be obtained 
only from a file that is already open. You can invoke alternate file 
input by writing the file reference code (FL0-FL9) of the file in 
positions 7 through 9 of file FLS using the WRITE FILE statement (see 
the IBM 5110 BASIC Reference Manual). 
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A logical data statement in a stream I/O file can be read into a single 
variable as illustrated: 


0 0 1 0 I 94-560 , 1 ADAMS S up p l y ' , 964 , 60 ,359 .00, 1 8/22/ ( >'' 


The above record could represent: 

94560 

Adams Supply 
964.60 

Amount 359.00 
8/22/77 


Customer Number 
Customer Name 
Total Purchases to Date 
Last Purchase 
Date of Last Purchase 


The data, if located in file 3 on device 'D80', could be read into a 
single variable as follows: 

001 0 OPEN ELI,’D80 1 ,3,’CUSTOMER‘,IN 
0020 DIM A$64 

0 0 3 0 W RIT E EIL E U 81N G 4 0 , F L S , 1 F L1 * 

0 0M O FORM POST , C 
0050 GET FL1,A$ 

0060 PRINT A* 

The data in A$ as printed in statement 60 would include all commas 
and quotes as well as the actual data. The output from 60 would 
appear: 

94560/ADAMS SUPPLY',964.60,359.00/8/22/77' 


Referring to the cross reference program earlier in this chapter, the 
program uses a type 2 or type 9 file for input as follows: 



0210 ONERROR SYSTEM' 


0 2 2 0 0 P E N F L I , D $ , F , F $ , I N ' 
0230 WRITEFILE FLS,’ 


If an error occurs, control transfers to statement 

0200. 

If this statement executes without error, a type 9 file 
has been opened. 

Reset error trapping. 

Error 608 indicates that a type 2 file exists and that 
the program tried to open it as a type 9 file. Control 
follows in statement 220, where the type 2 file is 
opened. Any other error passes control to statement 
270 for termination. 

Reset error trapping. 

Open the type 2 file. 
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Invokes alternate input from a type 2 file to supply a 
logical record, including quotes and commas, in a 
single character variable. 









The cross reference program opens file FL1 and dimensions A$ and 
M$ to contain the logical records. By testing for an error in the 
opening of a stream file as a record file, the program reads either a 
type 9 file (fixed length record) or a type 2 file (variable length record) 
with delimiter characters. This alternate mode ignores the commas of 
the type 2 file. 


Different File Access Methods 

The following programs were written to illustrate various methods of 
file accessing. Before these programs were written, the diskette was 
first marked. Unlike tape files, diskette files can be marked and then 
re-marked, if necessary, without affecting any other files. 

Programs were created to illustrate the following record I/O topics: 

• Data entry with key index file 

• Direct access and update with key index 

• Sequential access by key index 

• Sequential access with no key 

• Direct access by relative record number 

• Create multiple index 

Each program uses the data file created by the first program. 
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CREATING AN INDEX FILE 


The purpose of the following program is to illustrate the method by 
which a record I/O file with a key index file is created. In this example 
an inventory master file is created with a key file of item numbers. 

The amount of data is purposely limited, and the method of data entry 
is simplified in order to focus on the method by which both the master 
and key file are created. 

Consider that you wish to store inventory data in your 5110. Fast 
access to each item is critical and the inventory data must be easily 
and quickly updated. The initial data files are created with the 
following program: 


Inventory master file specified 


0 010 

OPEN FILE FI... 1, 

‘D80',2,‘ITEM.MAS! 

fER‘,OUT,RE0L=128 

0 020 

OPEN FILE ELI, 

‘D80‘,1, ‘ITEM.NO. : 

INDEX ‘ . OUT , KEY , K P=1 . !<L^5 

0 030 

PRINT ‘ENTER . 

. . ITEM NUMBER‘! 

\ 

0 04-0 

INPUT 1$ 


Key file specified 

0 05 0 

IF I$«'END‘ GO 

TO 1.50 


0 060 

PRINT ‘ENTER . 

. . DESCRIPTION’ 


0 0 70 

INPUT D $ 


‘ Operator entered data 

0 080 

PRINT ’ENTER . 

. . QTY ON HAND' 


0 090 

INPUT 0 



o :i. o o 

PRINT ‘ENTER . 

. . UNIT PRICE* 


0 1 10 

INPUT P 

> 

^^,-Data written to master file 

0120 

WRITEFILE USIN 

G .1.30 , Fl.,1, 1$, Dili, Q 

P ^ 

0 :l. 3 0 

FORM 05,020,PI 

C<ZZZZ#> , PICOMiiMi 

##- Record format specified 

014-0 

GOTO 30 



0:1.50 

STOP 




In the above example, the record format is specified in statement 130. 


Item Number 
Description 
Quantity on Hand 
Unit Price 


5 characters 
20 characters 
5 characters 
8 characters 


The key field is automatically created as a result of statement 20, 
which specifies file 1 on device D80 as the key file using 5 characters 
(KL=5) starting at position 1 (KP=1) of the master file (item number) as 
the key. The overall record length is 128 bytes (RECL=128). Because 
our data consumes only 38 bytes, ample space is available for 
additional inventory data. 








After the inventory data was entered, the master data file was listed 
and is shown below: 


D202 

SCREWDRIVER 

50 0 0 

$1 . 25 

A50 0 

SCREWDRIVER 

55 

$8.50 

B30 0 

DOLTS 

60 0 

$0 . 85 

50 0 0 

RUHR 3/4* HORSE 

7 

$95,0 0 

50 02 

PUMP 1/2 HORSE 

12 

$85.0 0 

A202 

HAMMER 

O n 

$6.25 

A3 05 

PIPE WRENCH 

.1.3 

$ 1.6.7 5 


The order in which the items are listed is the order in which they were 
originally entered. As you look at each record you can see the record 
format (space for 5-character item number, space for 20-character 
description, and so on. 

This data file is now available for access and processing. 

The key file created in file 1 should be sorted to produce the best 
operating performance. 
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DIRECT ACCESS AND UPDATE WITH KEY INDEX 


The purpose of the following program is to illustrate how you can 
directly access a data file by key, alter the data, and update the master 
file. This program uses the data file created by the previous program. 
The method of altering the data after it has been accessed uses a 
simplified version of the full screen formatting capability of the 5110. 
Using these concepts, you should be able to construct efficient 
routines. 


0 01.0 
0 020 
0 030 
0 0 'I- 0 
0 050 
0 060 
0 070 
0 0 8 0 
0 0 9 0 
0 10 0 
o :l. :i. o 
0 12 0 
013 0 
0 140 
015 0 
0 160 
0 17 0 
0 ISO 
0190 
020 0 
0 21 0 
0220 
0230 
02*1-0 
0250 
0260 
0 270 


Z r -257** -Constant for controlling cursor position 

U=Z+331 
DIM F$6M-, 8$80 
F$ 5S * DESCRIPTION 


ON HAND 


i ■!■--- i\ j. i i j.un uit r i ri fi a.' UNI 1 PRICi::. i 

E$=' I TEM NUMBER ' I-Position cursor as specified in statement 10 

ST R < S$ , 1, *13 > = ' FO RM POSZ , C11 , X3 , C5 , X184-, CM-7 , X80 , C1, C20 , C2, —* 

STR ( S$ , M M-, 35) ~ ' PIC ( ZZZZtt) , C6 . PIC ( $$$$# . tttt ) , Cl, POSU 1 
REM 


Specify format 
of inventory 
data display 


OPEN 1 
OPEN 
OPEN 


Open master and 


111 dale 

key file for 
input and output 


ILE FI.., 1, * D80 ‘ , 2 , ' ITEM . MASTER * , ALL 
ILE FL1' D80 1 , 1, ‘ ITEM . NO . INDEX * , ALL , Kli 
ILE FL2 , ' 0 02 * ALL "—___ 

^ N i EN 11".R 1NDEX l< E Y ' ■— Open screen for record I/O 

INPUT K$-*— Enter item number desired input and output 


IF K$= 'END' GOTO 230 
R E A D I-1L, E U SIN G 16 0 , F L1, K E Y :::: K $ , I $ , D $ , Q , P, N 0 K E Y 2 5 G 
FORM C5 , C2 0 ,NC5,NC8. 2 


Item is retrieved 
using key 


U RIT E F11.., E U SIN G S $, FI... 2, E $, I $, F $ , ' > ‘ , D $ 
R E A D FIL E U SIN G 19 0 , F L 2, D $ Q, P, C 0 N V 17 0 
F 0 R M P 0 S U , C 2 0 , X 2, N C 5 , X 6 , N C 8 ,2 

R E U RIT E FIL E U 81N G 210 , F L1D $, Q , P -- 

F 0 R M P 0 S 6 C 2 0 , PIC < Z Z Z Z # ) , PIC ($ $ $ $ tt , ?H?) 
GOTO 120 

PRINT 'END OF JOB' 

STOP 


, ' <> ' ,Q, ' 




Item data is 
displayed 

Data items can be updated 
Master file is updated 


P R I N T ' -ft w V: •)(• ¥: )(■ •)(• N (!) K I::! Y I" 0 U N )!!l -K- ¥: •)(• -)(• -)(• ¥■ •)': -x-' 

PRINT 

GOTO 120 


The master file is available for both access and update because the 
parameter ALL is specified in both OPEN statements 90 and 100. 
OPEN statement 110 referencing device 002 prepared the display 
screen for record input and output. 
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The operator keys in the item number in statement 130. The 5110 
then searches the key file for that item number. When found, the key 
record points directly to the location of the data record in the 
inventory master file. The master file data is retrieved (statement 150) 
and displayed for operator viewing (statement 170). The system 
positions the cursor at the beginning of the description data field. If 
no changes are to be made, the operator simply presses the EXECUTE 
key. If changes are needed, the operator positions the cursor 
appropriately, keys the altered data, and presses the EXECUTE key. 
When the execute key is pressed, the displayed data is rewritten back 
to the master file. 

ITEM NUMBER 5002 


D E S C RI P T10 N 0 N H A N B IJ NIT P RIC E 

> P U M P :i. / 2 H P < > .1.3 < < > > > $ 0 5.0 0 < 


5 0 0 2 

ITEM NUMBER A202 

DESCRIPTION 
>HAMMER 


0.1.8 0 588 

ON HAND UNIT PRICE 
$6 , 25 < 


A.202 


01.80 


The above illustration is a copy of the display screen output. Item 
number 5002 was requested, and the quantity on hand has been 
altered to 13. Then item A202 was requested, and the quantity on 
hand was altered to 18. 

If an invalid key item number was entered, the NOKEY parameter in 
statement 150 would cause the system to print 'NO KEY FOUND' 
(statement 250) and request the next key (statement 120). The marks 
to the left and right of each data field bracket the area where valid 
data may be entered. 
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SEQUENTIAL ACCESS BY KEY INDEX 


The purpose of the following program is to illustrate how the data in a 
master file can be accessed in sequential order specified by the key. 
Sequential access by key means that each key and its corresponding 
record will be accessed in alphameric order. That is, all keys beginning 
with A are accessed first, then B, and so on with numeric-only keys 
accessed last. 


0 0 3.0 

REM SAMPLE PROG 

RAM TO r 

0 02 0 

REM DATA BASE SEQUENTIf 

0 030 

REM 


0 040 

REM 


0 050 

REM 


0 06 0 

DIM F$64-,H$64-,)C 

$20 

0 070 

REM 


0 080 

DATA 'ITEM NUMBER DC 

0 090 

READ H$ 


0 3.0 0 

PRINT FLP , H$ 


0 3.3. 0 

REM 


0 3.20 

STR < F$ , 3., 39 ) :::: ' F 

ORMPOS3. 

0 3.30 

SIR(F$ , 40,18)=' 

p i (::<$$$■: 

0 3.4-0 

REM 


0 150 

OPEN FILE FL3.-, * 

D80',5, 

0 3 .6 0 

OPEN FILE FL3., ' 

D80 * ,4-, 

0 3.70 

PRINT FLP 


0 3.80 

READFILE USING 

3.9 0 , FI...3. 

0 3.90 

FORM C5,C20,NC5: 

i, NC8.2 

020 0 

PRINT USING F$, 

FLP,I$J 

0 23.0 

GOTO 3.80 


0220 

PRINT TAB<30),' 

END OF 

0230 

STOP 



ON HAND UNIT PRICE' 

Format output data. 


_Key and data 

files specified. 

Data file is read until the 
last item is encountered 

Each item is printed 


JOB ' 






M NUMBER 

DESCRIPTION ( 

)N HAND 

UNIT 

A 20 2 

HAMMER 

18 

*6.2S 

A3 OS 

PIPE WRENCH 

13 

$16.75 

A SO 0 

SCREWDRIVER 

['[i *•;.! 

$8 . SO 

B 2 0 2 

SCREWDRIVER 

SO 0 0 

$1.2S 

B 3 0 0 

BOLTS 

6 0 0 

$0.8S 

SO 0 0 

PUMP 3/4 HORSE 

{' 

$95.00 

SO 02 

PUMP 1/2 HORSE 

13 

$85.00 


Running the program shown above automatically creates the printed 
output as illustrated. Notice that the item numbers are listed 
alphamerically, and that the on-hand quantities have been updated 
according to the previous program. 

If the key file was sorted, the next sequential key could be located 
more quickly, thus making this program execute much faster. 

SEQUENTIAL ACCESS WITH NO KEY USED 

The purpose of this program is to illustrate how your data file may be 
accessed sequentially without the use of a key index file. Even though 
a key file was created, it is not necessary to use it for every access. 
Sequential access to a master file without a key simply means to 
retrieve the records one after the other in their order of appearance in 
the file. In many cases, this will be their original order of entry. 
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The following program is the same as the previous program except 
that statement 160 has been deleted; you do not open the key file. 

The result is a listing of items exactly ^s they appear in the master file, 


() 0 ;!. 0 R i:;' ft !;;> ft ft }••' I..,ft K U i.;.i K ft ft 1 (.1 K E ft U 

!) (} ft (j R ft 




0 2 3 U 


THE INVENTORY 
, , N U K i::. Y I" .1, 



The output of the above program is illustrated below: 

ITEft NUMBER DESCRIPTION ON HAND 

3 ; 2 ;\i ij'j 5 0 0 u 

ft 3 0 0 5 C K E W 1 J !■•:'. IV E E 5 5 

B 3 0 0 BOLT S 6 0 n 

5 0 0 0 ft u ft P I / 2 H P 15 

il 0 \ - A / U- j -} H { 

ft 202 HAMMER 10 


UNIT 


$ 1 





This technique is handy for creating a fast listing of a data file because 
it avoids access to the key file. 
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DIRECT ACCESS BY RELATIVE RECORD NUMBER 

The purpose of the following program is to illustrate how you can 
access a record directly if you know its location in the master file. 
This is the fastest method of access because the system can go 
directly to the desired record in the master file rather than looking up 
the location in a key file or searching for the record sequentially. 

The following program is the same as the program previously 
described under Random Access and Update Using Key Index with 
the following changes: 


Statement 100 deleted No key file is opened and specified. 


Statements 120 & 130 


Statement 150 


Statement 250 
Statement 140 


The operator enters a numeric record 
number rather than a key. 

The record number is specified in 
the read statement with a REC= 
clause and a NOREC error branch. 

Error NO RECORD FOUND is displayed. 

Branch on zero rather than END. 
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The program and its output are shown below: Notice that record 
number 3 is actually the third record entered by the original data entry 
program. 


N n i si 

/, A *,*| b { 









0 0 2 0 

l4 :; "Z-v-33 

1 








0 0 3 0 

DIM FT 

64-ST80 








0 0 M- 0 

F$=‘DE 

SCRIPTIO 

M 


ON 

HAND 


UNI T 

PR 10 

0 0 5 0 

E$=‘IT 

EM NUMBE 

R ‘ 







0 0 6 0 

STR(8$ 

.. 1, 4-3 > ~ * 

- ORM 

POST 

|C1I,X3 

03, X1 

84- 

04-7, 

X8 0,0 

0 0 7 0 

STR(ST 

, 4-4-, 33 ) = 

’ PIO ( 

l Z Z 2 

¥t ) , 06 , P ; 

:o<ttt 

T ^ 

mn, 

0:1., PC) 

0 0 8 0 

REM 









0 0 9 0 

□ PEN F 

ILE FI...I. 

1 D8 0 ’ 

; 2 , 

I LEM , M Ai 

5TER’, 

AU 

.. 


0 11 0 

OPEN P 

ILE FL2, 

‘ 0 0 2 ‘ 

, ALL 






0 12 0 

PRINT 

’ENTER R 

EOORD 

NUMBER‘ 





0 13 0 

INPUT 

K 








0 1 4- 0 

IF' K :::: 0 

GO i 0 23 

0 







0 15 0 

READFI 

LE USING 

16 0 . 

" L. 1 ; 

REC-K,U 

> ,DT, Q 

, P 

NO RE 

0 230 

0 16 0 

FORM 0 

3,020 NO 

3 N O !;:> 

« . /. ! 






0 17 0 

UR j. i El- 

ILE USIN 

G ST, 

FL2, 

FT , IT , FT 

>, 1 > * , 

DT 


, Q , 1 < 

o :i. 8 o 

READFI 

LE USING 

19 0 , 

FL2, 

DT,Q,P,i 

;onv i 

7 0 



0 19 0 

FORM P 

• i i.-.j . 020 . 

X2, NO 

,V.i jj A C 

, NOB . 2 





0 2 0 0 

REWRIi 

EFILE US 

.[ N Q 2 

:i. o, i : 

L1 , DT , Q 

p 




0 ? 1 0 

FORM P 

OS6 .. 020 

i :: ‘ :i: o < z 

Z Z Z : i : 

) , PIO ( T: 

>TT# . # 




0 220 

GOTO :i. 

2 U 








0 2 3 0 

PRINT 

1 END OF 

JOB ; 







0 24-0 

STOP 









0 2 3 0 

PRINT 

‘ .|f. .}|. .}!; •«; )l; 

•)(• 

NO 

RECORD S 

: OUND 

-K- 

1; •)(* jl; jl; 

•)l; •)!• *)l; 

0 9’ 6 0 

P R j! N 7 









0 2 7 0 

GOTO :i 

2 0 








ITEM 

NUMBE 

i B 3 0 0 









D E S 0 RI P T x 0 N 0 N H A N D U NI! R I 0 i: 


E M T E R R E C 0 R D N U M B E R 


0 13 0 0 0 :!. 


178 













CREATING MULTIPLE INDEXES 


It may be desirable to have several key index files for a single master 
file. The 5110 can create one index file automatically as illustrated in 
the first data entry program. Suppose you wish to create a report 
organized alphabetically by item description. A second key file can be 
created with the item description as the key field using the following 
program. Two special key records (marker records) are required in the 
first two record locations of an unsorted key file (see the IBM 5110 
BASIC Reference Manual, Index file format ). This program builds the 
first two special key records and all subsequent keys for the master 
file. 


Special Key Record 1 

All Binary 0000 

Key Field 
Length 

Key 

Position 

Special Key Record 2 

Ail Binary 1111 

2 Bytes 

Unused 

2 Bytes 

MASTER FILE KEY 

Key 

4 Bytes 

Relative 




Record 

Number 



4 Bytes 
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0 0^0 RFM CREATE XNDEX f;i;le FOR EXISTING MASTER 
0030 DIM K*28,L*28,D*3,F*17 

0040 PRINT ‘ENTER DEVICE CODE, FILE NUMBER AND FILE NAME' 

0050 PRINT ‘FOR THE MASTER FILE TO BE USED. * 

0060 INPUT D$,F,F$ 

0 0 7 0 (0 P E N FIL E F L1 , D $, F , F $ , IN 
0 080 R : ™RLN( ‘FLI ' ) 

0090 REM 

0:1.0 0 REM GET KEY INFORMATION 

011 0 P RIN T ‘ E N T E R K E Y L E N G T H A N D l< E Y P O SITI ON. * 

0120 INPUT L,P 
0.1.30 REM 

01.40 REM CHECK FOR VALIDITY 

015 0 IF Ls* INT < L ) ^ PX INT ( P > GOTO 590 

0 3.60 IF L< 1.1 P< 1. GOTO 590 

01.70 IF R<P+L-1 GOTO 590 

01.00 REM 

01.90 REM DETERMINE KEY RECORD SIZE 
020 0 R 1.-32 

0210 IF L>13 GOTO 250 
022 0 R1. ™ 1.6 

0230 IF L>5 GOTO 250 
0240 R1.-O 
0250 REM 

0260 REM GET INFORMATION FOR INDEX FILE 
0270 REM 

0280 PRINT ‘ENTER DEVICE CODE, FILE NUMBER AND FILE NAME’ 

0290 PRINT ‘FOR INDEX FILE TO BE BUILT’ 

030 0 INPUT D$,F,F$ 

0 31. 0 O P E N FIL E F L 2, D $ , F , F *, O U T, R E C L « R1. 

0320 R2™R1. -3 
0330 S=0 
0340 l<$-X ‘ 00 ‘ 

0350 ST R (K $, 2) :::: K $ 

0 36 0 U RIT E FIL E U SIN G 3 7 0 , F L 2, S T R (l< $ ,1,1.), L , P 
0 3 7 0 F O R M C , P O S R 2, B 2 , B 2 
0380 REM 

0390 REM GET KEYS FROM MASTER 
0400 REM 
041.0 L$*K$ 

0420 READFILE USING 430 , FL1., STR (!<$, 1., L > , EOF 540 
0430 FORM POSP,C 
0440 R3=&REG 

0450 IF S«1IK*>L$ GOTO 500 
0460 L*«X*FF* 

0470 STR (L..$, 2 > ~L$ 

0480 W R IT E FIL E F L 2, S T R (L $ , 1., L) 

0490 S~1 
0500 REM 

0 51.0 W RITEFILE US 1NG 52 0 , FL2, STR (K *, 1., L) , R3 

0520 FORM C,POSR2,B4 

0530 GOTO 410 

0540 IF S~1 GOTO 580 

0550 L$™X’FF‘ 

0560 STR(L$,2)~L$ 

0570 URITEFILE FL2 , STR(L,$ , 1, L) 

0580 STOP 

0590 PRINT ‘INVALID KEY LENGTH OR KEY POSITION OR NOT VALID FOR’ 
0600 PRINT ‘MASTER FILE RECORD LENGTH' 




Glossary 


alphabet extender: Any one of the following 
three special characters: #, and $. 

alphabetic character: Any of the 26 letters (A 
through Z) of the English alphabet or any of the 
alphabet extenders (#, and $). 

alphameric character: A numeric or alphabetic 
character. 

argument: An arithmetic expression appearing in 
parentheses following a function name, either in a 
function reference (either a user-written or an 
intrinsic function) or in a pseudo variable. The 
expression represents a value that the function is 
to act upon. The function name may or may not 
be followed by arguments. 

arithmetic array: A named table of arithmetic 
data items. An array may be implicitly declared 
through usage or explicitly declared in a DIM 
statement. BASIC allows one- and 
two-dimensional arithmetic arrays. 

arithmetic constant: A constant with a numeric 
value. The three forms of arithmetic constants 
permitted in BASIC are integer, fixed-point, and 
floating-point. 

arithmetic data item: Data having a numeric 
value. 

arithmetic expression: An arithmetic constant, a 
simple arithmetic variable, a scalar reference to an 
arithmetic array, an arithmetic-valued function 
reference, or a sequence of the above 
appropriately separated by arithmetic operators 
and parentheses. 


arithmetic operator: A symbol representing an 
operation to be performed upon arithmetic data. 
The arithmetic operators are: 

+ Addition and unary plus sign 

Subtraction and unary minus sign 

* Multiplication 

/ Division 

+ or ** Exponentiation 

arithmetic variable: The name of an arithmetic 
data item whose value is assigned and/or 
changed during program execution. The name 
consists of a single alphabetic character or an 
alphabetic character followed by a digit. 

array: A named list or table of data items, all of 
which are the same type-arithmetic or character. 
BASIC allows one- and two-dimensional arrays. 

array declaration: The process of naming an 
array and assigning dimensions to it either 
explicitly (by the DIM statement) or implicitly 
through usage. 

array element: See array member. 

array expression: An arithmetic expression or a 
character expression representing an array of 
values rather than a single value. It may be used 
only in an array assignment statement. 

array member: A single data item in an array; its 
position is indicated by a subscripted array 
reference. 
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array variable: The name of an entire array. The 
name consists of an alphabetic character (for 
arithmetic arrays) or an alphabetic character 
followed by the dollar sign, $, (for character 
arrays). 

assignment: The process of giving values to 
variables; for example, via LET statements, READ 
statements, and INPUT statements. 

\ 

assignment symbol: The symbol =, which is used 
in an assignment statement to give a value to one 
or more variables. 

BASIC: A programming language designed for 
interactive systems and originally developed at 
Dartmouth College to encourage nonprogrammers 
to use computers for simple problem-solving 
operations. The word BASIC is an acronym for 
Beginners' All-purpose Symbolic Instruction Code. 

binary operator: A symbol representing an 
operation to be performed upon two data items, 
arrays, or expressions. The four types of binary 
operators are arithmetic, character, logical, and 
relational. 

branching: Executing a statement other than the 
next sequential one; for example, via the GOTO 
statement. 

built-in function: See intrinsic function. 

character array: A named table of character data 
items. An array may be implicitly declared through 
usage or explicitly declared in a DIM statement. 
BASIC allows one- and two-dimensional character 
arrays. 

character constant: A constant with a character 
value. It is always enclosed by a pair of single or 
double quotation marks. 

character data: Data having a character value as 
opposed to a numeric value. 


character expression: A character constant, a 
simple character variable, a scalar reference to a 
character array, a character-valued function 
reference, or a sequence of the above separated 
by the concatenation operator (| | ) and 
parentheses. 

character operator: A symbol representing an 
operation to be performed upon character data. 
The concatenation operator (| [ ) is the only 
character operator in BASIC. 

character string: A sequence of characters that 
represents an item of character data. 

character variable: The name of a character data 
item whose value is assigned and/or changed 
during program execution. The name consists of 
an alphabetic character followed by the dollar sign 
character ($). 

comment: A remark or note included in the body 
of a program by the programmer. It has no effect 
on the execution of the program; it merely 
documents the program. Comments are written as 
a string of characters and may appear as a part of 
any program statement that has no operands (for 
example, REM, STOP, END, and RESTORE). 

concatenation: The joining of two character data 
items by the symbol | | . 

concatenation operator: The symbol | | , used to 
concatenate, or join, two character data items. 

constant: A value that never changes. BASIC has 
two types of constants: arithmetic and character. 

control specification: (1) One of the 
specifications X or POS, used in the FORM 
statement to specify formatting of records in 
record-oriented files. (2) One of the specifications 
X, POS, or SKIP, used in the FORM statement to 
control print line formatting. 

data file: See file. 
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data form specification: (1) One of the 
specifications B, C, NC, PD, S, L, or PIC, used in 
the FORM statement to specify formatting of 
character and arithmetic values in record-oriented 
files. (2) One of the specifications C or PIC, used 
in the FORM statement to format character and 
arithmetic values on a printed line. 

data item: A single unit of data; that is, a 
constant, a variable, an array element, or a 
function reference. 

data table: The values contained in the DATA 
statements of your program. DATA statements 
are processed in statement number sequence 
(lowest to highest). The values in each DATA 
statement are collected and placed in a single 
table in order of their appearance (left to right). 

data table pointer: An indicator that moves 
sequentially through the data table, pointing to 
each value as it is assigned to a corresponding 
variable in a READ statement. Initially, the 
indicator refers to the first item in the table. It can 
be repositioned to the beginning of the table at 
any time by the RESTORE statement. 

declaration: See explicit declaration and implicit 
declaration. 

delimiter: A character that groups or separates 
data items. 

digits: the numerals 0, 1,2, 3, 4, 5, 6, 7, 8, 9. 

dimension specification: The specification of the 
size of an array and the arrangement of its 
members into one or two dimensions. 

direct access: The storage or retrieval of data 
independently of other data in a file (that is, 
regardless of its location relative to other data). 

dummy variable: A simple variable enclosed in 
parentheses and placed after the name of a 
user-written function in a DEF statement. The 
function performs its defined calculation on the 
expression value substituted for each dummy 
variable when the program is executed. 


E-format: Floating-point format. 

EBCDIC collating sequence: The ordering of 
character data items according to the Extended 
Binary Coded Decimal Interchange Code. 

error message: A message generated by the 
computer when an error has been detected. 

executable statement: A program statement that 
causes an action to be performed by the 
computer. 

execution error: An error discovered during 
execution of a BASIC program (for example, 
dividing by zero, or branching to a nonexisting 
statement number). 

explicit declaration: The use of a DIM statement 
to specify the number of members in an array, the 
number of dimensions in an array, or the length of 
a character variable. 

exponent (of E-format number): An integer 
constant specifying the power of ten by which the 
base (mantissa) of the decimal floating-point 
number is to be multiplied. 

exponentiation: Raising a value to a power. 

expression: A representation of a value; for 
example, variables and constants appearing alone 
or in combination with operators. Three forms of 
expressions are defined in BASIC: scalar 
(arithmetic or character), array (arithmetic or 
character), and logical. 

extended alphabet: The 26 letters of the English 
alphabet and the 3 alphabet extenders ($ # @). 

F-format: Fixed-point format. 

file: A named group of related data items that are 
stored together. In BASIC there are two types of 
files: stream-oriented and record-oriented. 

file reference: FLO through FL9. 
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fixed-point constant: An arithmetic constant 
consisting of one or more digits and a decimal 
point, and optionally preceded by a sign. 

fixed-point format: The form used to express a 
fixed-point constant. 

floating-point constant: An arithmetic constant 
consisting of an integer or fixed-point constant 
followed by the letter E, followed by an optionally 
signed one- or two-digit integer constant. 

floating-point format: The form used to express 
a floating-point constant. 

full print zone: Eighteen horizontal print 
positions. In a PRINT statement, a comma is used 
to indicate that a full print zone should be used. 

function: A named expression that computes a 
single value. See also intrinsic function and 
user-written function. 

function reference: The appearance of an 
intrinsic function name or a user-written function 
name in an expression. 

generic key: An argument specified in the KEY 
clause of a record I/O statement that is less than 
the full key length defined for a corresponding 
file. 

l-format: Integer format. 

implicit declaration: (1) The specification of the 
number of members in an array or the number of 
dimensions in an array, either by a reference, to a 
member of an array or by context (without the 
array being explicitly specified in a DIM 
statement). (2) The specification of the length of a 
character variable by context (without the variable 
being explicitly defined in a DIM statement). 

input: The transfer of data from an external 
medium to internal storage. 


input list: A list of variables to which values are 
assigned from input data; the list can be made up 
of scalar variables, array member references, 
pseudo variables, array references, and array 
references with redimensioning. 

input/output: The transfer of data between an 
external medium (that is, the keyboard or a file) 
and internal storage. 

integer constant: An arithmetic constant 
containing one or more digits, optionally preceded 
by a sign. 

integer format: The form used to express an 
integer constant. 

internal constant: An arithmetic constant whose 
value is supplied by BASIC. The name of the 
internal constants are &PI, &SQR2, &E, &INCM, 
&LBKG, and &GALI. 

internal storage: A computer's main storage. 

intrinsic function: A function supplied by BASIC 
(for example, SIN, COS, or SQR). 

key: One or more consecutive characters used to 
identify a particular record in a key-sequenced file. 

key-sequenced file: A record-oriented file whose 
records are accessed according to keys. 

logical expression: A logical subexpression, or 
two logical subexpressions joined by a logical 
operator (& or |). Its value is either true or false. 

logical operator: An operator that is used in a 
logical expression. The logical operators are: & 
(AND) and | (OR). 

long-form precision: Precision whereby, 
externally, values printed with l-format and 
F-format have a maximum of 15 significant digits, 
and values printed with E-format have a maximum 
of 15 significant digits in the mantissa. 
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loop: A sequence of instructions that is executed 
repeatedly until a terminating condition is reached. 
The FOR statement identifies the beginning of a 
loop; the NEXT statement identifies the end of it. 

mantissa: In floating-point notation (E-format), 
the number that precedes the E. The value 
represented is the product of the mantissa and - 
that power of ten specified by the exponent. 

matrix (mathematical): A two-dimensional 
arithmetic array. 

multiline function: A user-defined function that is 
defined with more than one statement. 

nesting: (1) The occurrence of a FOR/NEXT loop 
within another FOR/NEXT loop. (2) The 
occurrence of a GOSUB statement when one or 
more GOSUB statements are already active. (3) 
The use of more than one set of parentheses to 
indicate the order of evaluation in a complex 
arithmetic expression. 

nonexecutable statement: A program statement 
that specifies information for program execution. 

null character string: Two adjacent single 
quotation marks that specify a character constant 
of blank characters. 

null delimiter: One or more blanks or no 
characters at all (that is, one data item directly 
following another data item with no intervening 
space or delimiter) used in a PRINT statement to 
specify a packed print zone. 

numeric character: Any of the digits 0, 1, 2, 3, 4, 
5, 6, 7, 8, 9. 

operand: A constant, a variable, an array member 
reference, a function reference, or a 
subexpression on which an operation is to be 
performed. 

operator: A symbol specifying an operation to be 
performed. See also arithmetic operator, binary 
operator, concatenation operator, logical operator, 
relational operator, and unary operator. 


output: The transfer of data from internal storage 
to an external medium. 

output list: A list of variables from which values 
are written to an output file; the list can be made 
up of scalar expressions and array references. 

packed decimal: Method of storing data on magnetic 
media wherein one hexadecimal byte contains two 
decimal digits. 

packed print zone: A section of a printed line, 
consisting of a number of horizontal print 
positions, whose size is determined by the type 
(arithmetic or character) and length of the data 
being printed. In the PRINT statement, a 
semicolon or null delimiter is used to indicate that 
a packed print zone is to be used. 

padding: The addition of one or more blanks to 
the right of a character string to extend the string 
to a required length. 

precision: The number of digits for which 
significance can be expressed. 

print zone: See full print zone and packed print 
zone. 

priority: A rank assigned to an arithmetic 
operator; it is used when an arithmetic expression 
is being evaluated. The order of priorities, from 
high to low, is exponentiation, unary operations, 
multiplication and division, addition and 
subtraction. Operations at the same priority level 
are evaluated as they are encountered (from left 
to right in the expression). 

program: A logically self-contained sequence of 
BASIC statements that can be executed by the 
computer to attain a specific result. 

programmer-defined function: See user-written 
function. 
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pseudo variable: The use of an intrinsic function 
as a receiving variable. STR is the only pseudo 
variable in BASIC. 

record: A collection of related data items treated 
as a unit. 

record-oriented file: A file in which items are 
stored in records. 

redimension specification: The assignment of a 
new dimension specification to an already existing 
array, via an array assignment statement, a READ 
statement, an INPUT statement, a GET statement, 
a READ FILE statement, or a REREAD FILE 
statement. 

redimensioning: The changing of the number of 
dimensions or the number of members in each 
dimension of a previously declared array. 

relational operator: An operator used in a logical 
subexpression. The relational operators are: 

= Equal to 

* or < > Not equal to 

> Greater than 

< Less than 

> = or > Greater than or equal to 

< = or < Less than or equal to 

remark: See comment. 

scalar: A single data item (as opposed to an array 
of items). 

scalar expression: An arithmetic expression or a 
character expression representing a single value 
rather than an array of values. 


sequential access: The retrieval of data 
according to the order in which the data is stored 
in a file. 

short-form precision: Precision whereby, 
externally, values printed with l-format and 
F-format have a maximum of seven significant 
digits, and values printed with E-format have a 
maximum of seven significant digits in the 
mantissa. 

significant digits: All the digits of a number 
starting with the leftmost nonzero digit. 

simple name: Any combination of up to 8 
alphabetic and numeric characters (with no 
blanks). 

simple variable: A scalar variable (but not an 
array member). 

single-line function: A user-defined function that 
is defined in one statement (that is, the DEF 
statement). 

special characters: Any characters allowed in 
BASIC that are not alphameric characters. 

statement number: The number that prefaces a 
BASIC statement. It can be up to four digits in 
length (in the range 0000 to 9999). 

stream-oriented file: A file in which items are 
stored as a stream of data and retrieved in 
sequential order. 

subexpression: A group within an arithmetic 
expression and used by the computer to evaluate 
that expression. 

subroutine: A program segment (sequence of 
statements) branched to by a GOSUB statement. 
The last statement of a subroutine must be a 
RETURN statement that directs the computer to 
return and execute the statement following the 
GOSUB statement. 
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subscript: Any valid arithmetic expression (whose 
truncated integer value is greater than zero) used 
to refer to a particular member of an array. 

substring: A part of a character string. 

system-supplied constants: See internal 
constants. 

truncation: The deletion of one or more 
characters on the right of a character string to 
shorten the string to a required length. 

unary operator: An operator that precedes, and 
thus is associated with, an arithmetic expression. 
The unary operators are + (positive) and 
- (negative). 

user: Anyone utilizing the services of a computing 
system. 

user-written function: A function defined by the 
user in a single-line or multiline function definition. 

variable: A name used to represent a data item 
whose value may change during execution of a 
program. 

zero suppression: The elimination of leading 
nonsignificant zeros in a number. 
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deactivating a file 90 
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end of file condition 87, 108 

EOD 64 

EOE 64 

EOF 87, 108 

EOF clause 93 
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space 86 

space reallocation 67, 71 
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FOR statement 17, 24, 134 
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format, diskette 65, 69 
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GET statement 16, 91, 94 
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GOTO statement 17,24 


hard copy output 4 
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I/O error handling 93 
IBM diskette 61 
identifying a file 90 
IDX intrinsic function 164 
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implicit declaration 130 
increasing tape file size 56 
index arrays 137 
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index file 102, 149 
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size 87, 149 
sorting 146 
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index record I/O file access 94 
index track 69 
indexed access 75 
indexing function 137 
individual record, accessing 106, 150 
initialization of diskette 61 
input 1,11 
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end of 98 
statement 16 

statements frequently used 17 
to I/O files 144 
INPUT, statement 133 
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intrinsic function 99 
KLN 99 
KPS 99 

inventory application 148 
IOERR 94 


KEY clause 103, 108 
KEY parameter 104 
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KLN,intrinsic function 99 

KPS,intrinsic function 99 
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L specification 112 

LAST statement 98 

length, member 129 

length, member of an array 129 

LET statement 17, 135 

lines printed 125, 163 

line spacing 126 

LOAD command 49 
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loading work area 49 

locating a character in a string 164 
locking a program 50 
logical operators 23 
AND 23 
OR 23 

long-form precision 112 
loops 19, 24, 27 
nested 27 
lowercase 125 


maintaining data files 79 

main storage 5 
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MARK command 49, 67 

marking file space for reallocation 50 
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MAT 133 

MAT statement 135 

matrix multiplication 136, 138 

matrix product 138 

maximum file space 64 

member,array 129 

multiline function 28 

multiple index, creating 179 

multiplication matrix 138 

multiplication scalar 137 


names of arithmetic functions —27 

naming arrays 130 

NC specification 110 

nested loop 26 

NEXT statement 17, 24, 134 

NOKEY clause 103, 108 

NOREC clause 108 

number and size of diskette files 70 

number of lines printed 125 

numeric specification, PIC 38 
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ON ERROR statement 164 
one-dimensional arrays 131 
OPEN FILE statement 95, 101, 115, 117, 120 
OPEN statement 16, 117 
opening record I/O files 95 

opening stream I/O files 89 

OR operator 23 
organizing a file 74 

OUT statemtent 95 

output 1, 10 
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from I/O files 144 
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page overflow 161 
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PAUSE statement 143 
performance considerations 145 
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POS-specification 42 
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long-form 112 
short-form 112 
PRINT FLP statement 18 
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print position 43 

PRINT statement 18 
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PRINT USING statement 109 
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printer spacing control 47, 126 
printer storage considerations 155 
printing character strings 42 

problems with programs 141 

PROC command 123 
procedure files 123 
process 1,12 
process data 1 
process statements 17 
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processing stream I/O 89 
program 1 
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chaining 33 
comments 144 
design 146, 153 
execution falls through 21 
problems 141 

statement storage consideration 154 
step 143 
trace 141 

programming language, BASIC 9 
protecting data files 51 
PUT statement 18, 91 


random access 57 
reactivating a file 89 
read a stream I/O file 167 
READ FILE FLS statement 125 
READ FILE statement 16, 100, 115, 117, 119 
read record I/O files sequentially 100 
read sequentially 100 

READ statement 16, 133 

reading from record I/O files 97, 100 
reading from stream I/O files 91 
reallocating file space 67, 71 
RECL= 95 
record 73 
design 83 
expansion 84 
I/O file 74, 75 
I/O file access 94 
I/O file opening 95 
layout 88 
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length, RECL= 95 
number 63, 102 
oriented statements 115 
retrieval 102, 109 
records 73 

added to a file 99 
deleting 107 
updating 105 
redimensioning arrays 134 
referencing a file 96 
reinitializing diskettes 66 
related data items 129 
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relational operators 21 

relative record number 77, 102 

removing sensitive data 53 

reoganizing a file 81 

repositioning files 92 

REREAD FILE statement 113, 115, 117 

RESET file statement 92, 116 

RESET statement 92, 108 

retrieving data 89 

RETURN statement 17, 28 

REWRITE FILE statement 18, 101, 105, 115, 117 

rewrite file statement 84 

rounding a number internally 151 

rows 131 


S specification 112 
sample record 84 
SAVE command 49, 124 
saving contents of work area 49 
saving work area 49 
scalar multiplication 137 
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sectors per track 65, 69 
security, maintaining data 50 
sensitive data, removing 53 
sequence of execution change 19 
sequential access 75, 77, 150 
by key 78, 104 
by key index 174 
with no key 175 

sequential record I/O file access 94 
sequentially read 100 
sequentially read record I/O files 100 
short-form precision 112 
single-line function 28 
size of a file, determining 85 
SKIP specification 38, 43 

skipping print lines 43 

skipping to a new page while printing 161 
sort program 128 
sorting an index file 166 
spacing during printing 42, 47, 126 
special keyword, ALL 101 
specification 109 
L 112 
NC 110 
PIC 109 
S 112 


specifying loops 24 
with NEXT 24 
with FOR 24 
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statement, chain 33 
statement, FORM 35, 116 
statement. Image 35 
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statement, USE 33 

statements for information processing 16 
statements 
CLOSE 90 

CLOSE FILE 95,101,116 

DATA 134 

DELETE FILE 107,116 

DIM 97, 129, 132 

EXIT 94, 108, 116 

FORM 35,97,109,116 

GET 91, 94 

INPUT 133 

LAST 98 

ONERROR 164 

OPEN FILE 95, 101, 115 

OUT 95 

PAUSE 143 

PRINT USING 109 

PUT 91 

READ 133 

READ FILE 100,115,119 
REREAD FILE 113,115 
RESET 92, 108 
RESET FILE 116 
REWRITE FILE 101,105,115 
USE 33 

WRITE FILE 97,99,115,119 
step 25, 143 
stop 30 

storage availability variations of diskette 68 
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storage available on tape 55 
storage considerations for 5110 152 

storage size 152 
storage, available 125 
stream I/O data files 74 
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processing 89 
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subroutines 30 values placed into arrays 133 
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subtraction, array 136 variables, amount of storage for 153 

symbols I I I I for exponential value 36 variable, character 113 

system control functions 125 volume ID 66 

volume-protect indicator 66 


tagging records for deletion 80 

tape format 55 

tape storage 55 

tape storage, determination of 58 

tape unit 4 

test data for a test file 144 
testing for an error 164 

tips and techniques 145 

trace 141 

track, diskette 63, 65, 69 
transfer of control 101 
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turn on/off audible alarm 126 
turn on/off display 126, 147 
two-dimensional arrays 131 
types of diskettes 65 


workarea available 125 

WRITE FILE FLS statement 126 

WRITE FILE statement 18, 97, 99, 115, 

write-protect indicator 66 

write-protection 51 

writing to record I/O files 97 

writing to stream I/O files 91 


X-specification 42 
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update with key index 172 

updating records 79, 81, 105 
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USE statement 33 

user program control 163 

user storage 152 

user-written functions 27 

using a loop 27 
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